/ MacWorld: Complete Mac Interactive / Macworld Complete Mac Interactive CD)(1994).iso / Software / Graphsoft / Mech Demo / MSamples.sit / Electrical Schematic

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 14 45 6c 65 63 74 72 | 69 63 61 6c 20 53 63 68 |..Electr|ical Sch|
|00000010| 65 6d 61 74 69 63 00 00 | 00 00 00 00 00 00 00 00 |ematic..|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 4d 43 2b 34 43 44 50 | 33 01 00 00 00 00 00 00 |.MC+4CDP|3.......|
|00000050| 00 00 00 00 02 08 a4 00 | 00 13 56 a9 c9 eb c1 a9 |........|..V.....|
|00000060| c9 eb c1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 27 d4 00 00 |........|....'...|
|00000080| 00 00 08 18 00 00 00 00 | 02 06 a5 5c 00 20 00 00 |........|...\. ..|
|00000090| 00 41 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.A......|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 02 06 8a 04 02 06 |........|........|
|000000b0| 94 18 00 00 00 00 00 28 | 02 01 06 00 fa 10 f2 86 |.......(|........|
|000000c0| 05 f0 0d 7a 3f fd a8 31 | 77 f6 1b 35 2d c2 80 00 |...z?..1|w..5-...|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 40 05 90 00 00 00 | 00 00 00 00 40 05 90 00 |..@.....|....@...|
|000000f0| 00 00 00 00 00 00 00 33 | 00 0f 01 a6 02 33 40 02 |.......3|.....3@.|
|00000100| fa f8 78 78 78 78 78 79 | 40 03 b9 5a 5a 5a 5a 5a |..xxxxxy|@..ZZZZZ|
|00000110| 5a 5b 01 00 01 01 01 00 | 00 00 00 03 00 00 01 2c |Z[......|.......,|
|00000120| 01 2c 00 00 00 00 0b e0 | 08 fc ff 7e ff 83 0c 62 |.,......|...~...b|
|00000130| 09 79 03 67 05 28 03 fc | 00 02 00 00 01 2c 01 2c |.y.g.(..|.....,.,|
|00000140| 00 00 00 00 0b e0 08 fc | 00 01 00 00 00 64 00 00 |........|.....d..|
|00000150| 00 01 00 01 01 01 00 00 | 00 01 27 0f 00 01 00 01 |........|..'.....|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 02 00 19 |........|........|
|00000170| 01 90 00 00 00 00 00 40 | 00 00 00 00 00 00 00 00 |.......@|........|
|00000180| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 05 00 00 00 00 | 00 00 00 eb 39 e8 01 2c |........|....9..,|
|000001a0| 01 2c 01 01 00 03 00 01 | 00 00 00 00 3f fd a8 31 |.,......|....?..1|
|000001b0| 77 f6 1b 35 2d c2 02 06 | a4 48 02 06 a4 68 02 06 |w..5-...|.H...h..|
|000001c0| 94 40 02 06 94 4c 02 06 | b2 3c 02 06 b2 5c 02 06 |.@...L..|.<...\..|
|000001d0| c1 c4 02 06 91 94 02 06 | 90 dc 02 06 91 40 02 06 |........|.....@..|
|000001e0| 8d c4 02 06 8d ac 02 06 | 8d 94 02 06 8d 9c 02 06 |........|........|
|000001f0| 7c 70 02 06 7c 88 02 06 | 7c a0 02 06 7c b4 02 06 ||p..|...||...|...|
|00000200| 7c e4 02 06 7c f8 02 06 | 7d 44 02 06 7d 5c 02 06 ||...|...|}D..}\..|
|00000210| 7d 74 02 06 7d 88 02 06 | 7d a8 02 06 7d bc 02 06 |}t..}...|}...}...|
|00000220| 7e 18 02 06 7e 30 02 06 | 7e 48 02 06 7e 5c 02 06 |~...~0..|~H..~\..|
|00000230| 7e 7c 02 06 7e 90 02 06 | 7e dc 02 06 7f 04 02 06 |~|..~...|~.......|
|00000240| 7f 1c 02 06 7f 30 00 00 | 10 00 00 03 3f ff 80 00 |.....0..|....?...|
|00000250| 00 00 00 00 00 00 09 46 | 74 20 26 20 49 6e 63 68 |.......F|t & Inch|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 22 00 15 |........|....."..|
|00000270| 81 00 00 10 00 00 01 27 | 00 00 00 00 00 00 00 00 |.......'|........|
|00000280| 01 2d 00 00 00 00 00 00 | 00 00 00 01 06 20 73 71 |.-......|..... sq|
|00000290| 20 66 74 00 00 38 b0 a0 | 2f 2e 00 00 00 01 00 00 | ft..8..|/.......|
|000002a0| 01 20 00 0f 4e 56 ff b2 | 20 6e 00 0c 00 00 00 01 |. ..NV..| n......|
|000002b0| 00 00 00 04 90 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 02 00 02 06 8a 04 00 00 | 04 00 00 00 01 00 00 00 |........|........|
|000002d0| 00 00 00 28 00 3b 01 dd | 02 7d 00 00 00 00 00 00 |...(.;..|.}......|
|000002e0| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 07 00 15 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 ff 00 ff 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 02 06 a5 48 00 00 |........|.....H..|
|00000790| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000890| 10 00 02 06 a5 5c 00 00 | 00 00 0d 64 05 79 2c a4 |.....\..|...d.y,.|
|000008a0| 00 00 00 00 00 1e 00 00 | 00 40 00 08 01 02 3f fb |........|.@....?.|
|000008b0| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|000008c0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000008d0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000008e0| 3f fb aa a8 00 00 00 00 | 00 00 00 00 00 00 00 01 |?.......|........|
|000008f0| ff e0 00 00 00 00 00 05 | ff e8 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fc 8e 38 |........|....?..8|
|00000940| 00 00 00 00 00 00 00 00 | 18 e3 00 00 23 8e 00 00 |........|....#...|
|00000950| 23 8e 00 00 23 8e 00 00 | 23 8e 00 00 23 8e 00 00 |#...#...|#...#...|
|00000960| 23 8e 00 00 23 8e 00 00 | 23 8e 00 00 23 8e 3f fc |#...#...|#...#.?.|
|00000970| 8e 38 00 00 00 00 00 00 | 00 08 79 7f 00 00 00 00 |.8......|..y.....|
|00000980| 00 0d 88 f3 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 01 02 3f fd 80 00 00 00 |........|..?.....|
|000009d0| 00 00 00 00 00 00 35 55 | 00 00 40 00 00 00 40 00 |......5U|..@...@.|
|000009e0| 00 00 40 00 00 00 40 00 | 00 00 40 00 00 00 40 00 |..@...@.|..@...@.|
|000009f0| 00 00 40 00 00 00 40 00 | 00 00 40 00 3f fd 80 00 |..@...@.|..@.?...|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 0d ff f8 00 00 |........|........|
|00000a10| 00 00 00 12 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 01 02 | 3f fd 9c 70 00 00 00 00 |........|?..p....|
|00000a60| 00 00 00 00 43 8e 00 00 | 4e 38 00 00 4e 38 00 00 |....C...|N8..N8..|
|00000a70| 4e 38 00 00 4e 38 00 00 | 4e 38 00 00 4e 38 00 00 |N8..N8..|N8..N8..|
|00000a80| 4e 38 00 00 4e 38 00 00 | 4e 38 3f fd 9c 70 00 00 |N8..N8..|N8?..p..|
|00000a90| 00 00 00 00 ff d9 20 73 | 00 00 00 00 ff d1 d4 ea |...... s|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 01 02 3f fa | aa a0 00 00 00 00 00 00 |......?.|........|
|00000af0| 00 00 03 8e 00 00 0a aa | 00 00 0a aa 00 00 0a aa |........|........|
|00000b00| 00 00 0a aa 00 00 0a aa | 00 00 0a aa 00 00 0a aa |........|........|
|00000b10| 00 00 0a aa 00 00 0a aa | 3f fa aa a0 00 00 00 00 |........|?.......|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 02 |........|........|
|00000b30| ff d0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 01 04 3f fc d5 54 | 00 00 00 00 00 00 00 00 |....?..T|........|
|00000b80| 20 00 00 00 2a aa 00 00 | 2e 38 00 00 35 55 00 00 | ...*...|.8..5U..|
|00000b90| 35 55 00 00 35 55 00 00 | 35 55 00 00 35 55 00 00 |5U..5U..|5U..5U..|
|00000ba0| 35 55 00 00 35 55 3f fc | d5 54 00 00 00 00 00 00 |5U..5U?.|.T......|
|00000bb0| 00 00 00 00 00 08 00 10 | 00 00 00 00 00 0b ff d0 |........|........|
|00000bc0| 00 00 00 00 00 0b ff d0 | 00 00 00 00 00 0e ff e8 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 01 06 3f fd c0 00 00 00 | 00 00 00 00 00 00 20 00 |..?.....|...... .|
|00000c10| 00 00 2a aa 00 00 4a aa | 00 00 55 55 00 00 58 e3 |..*...J.|..UU..X.|
|00000c20| 00 00 60 00 00 00 60 00 | 00 00 60 00 00 00 60 00 |..`...`.|..`...`.|
|00000c30| 00 00 60 00 3f fd c0 00 | 00 00 00 00 00 00 00 00 |..`.?...|........|
|00000c40| 00 00 00 08 00 10 00 00 | 00 00 00 0b ff d0 00 00 |........|........|
|00000c50| 00 00 00 13 ff e0 00 00 | 00 00 00 17 ff e8 00 00 |........|........|
|00000c60| 00 00 00 17 ff e8 00 00 | 00 00 00 1b 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 06 |........|........|
|00000c90| 3f fd 80 00 00 00 00 00 | 00 00 00 00 20 00 00 00 |?.......|.... ...|
|00000ca0| 2a aa 00 00 2e 38 00 00 | 35 55 00 00 38 e3 00 00 |*....8..|5U..8...|
|00000cb0| 40 00 00 00 40 00 00 00 | 40 00 00 00 40 00 00 00 |@...@...|@...@...|
|00000cc0| 40 00 3f fd 80 00 00 00 | 00 00 00 00 00 00 00 00 |@.?.....|........|
|00000cd0| 00 08 00 10 00 00 00 00 | 00 0b ff d0 00 00 00 00 |........|........|
|00000ce0| 00 0b ff d0 00 00 00 00 | 00 0e ff e8 00 00 00 00 |........|........|
|00000cf0| 00 0e ff e8 00 00 00 00 | 00 12 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 02 3f fb |........|......?.|
|00000d20| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|00000d30| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000d40| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fb aa a8 |........|....?...|
|00000db0| 00 00 00 00 00 00 00 00 | 0a aa 00 00 15 55 00 00 |........|.....U..|
|00000dc0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000dd0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 00 00 00 00 00 00 00 | 01 02 3f fb aa a8 00 00 |........|..?.....|
|00000e40| 00 00 00 00 00 00 0a aa | 00 00 15 55 00 00 15 55 |........|...U...U|
|00000e50| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000e60| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 00 00 |...U...U|...U....|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 01 02 | 3f fb aa a8 00 00 00 00 |........|?.......|
|00000ed0| 00 00 00 00 0a aa 00 00 | 15 55 00 00 15 55 00 00 |........|.U...U..|
|00000ee0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000ef0| 15 55 00 00 15 55 00 00 | 15 55 00 00 00 00 00 00 |.U...U..|.U......|
|00000f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 01 02 3f fb | aa a8 00 00 00 00 00 00 |......?.|........|
|00000f60| 00 00 0a aa 00 00 15 55 | 00 00 15 55 00 00 15 55 |.......U|...U...U|
|00000f70| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000f80| 00 00 15 55 00 00 15 55 | 00 00 00 00 00 00 00 00 |...U...U|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 01 02 3f fb aa a8 | 00 00 00 00 00 00 00 00 |....?...|........|
|00000ff0| 0a aa 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.....U..|.U...U..|
|00001000| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001010| 15 55 00 00 15 55 00 00 | 00 00 00 00 00 00 00 00 |.U...U..|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 01 02 3f fb aa a8 00 00 | 00 00 00 00 00 00 0a aa |..?.....|........|
|00001080| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001090| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000010a0| 00 00 15 55 00 00 00 00 | 00 00 00 00 00 00 00 00 |...U....|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 02 |........|........|
|00001100| 3f fb aa a8 00 00 00 00 | 00 00 00 00 0a aa 00 00 |?.......|........|
|00001110| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001120| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001130| 15 55 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.U......|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 02 3f fb |........|......?.|
|00001190| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|000011a0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000011b0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001210| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fb aa a8 |........|....?...|
|00001220| 00 00 00 00 00 00 00 00 | 0a aa 00 00 15 55 00 00 |........|.....U..|
|00001230| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001240| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012a0| 00 00 00 00 00 00 00 00 | 01 02 3f fb aa a8 00 00 |........|..?.....|
|000012b0| 00 00 00 00 00 00 0a aa | 00 00 15 55 00 00 15 55 |........|...U...U|
|000012c0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000012d0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 00 00 |...U...U|...U....|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 01 02 | 3f fb aa a8 00 00 00 00 |........|?.......|
|00001340| 00 00 00 00 0a aa 00 00 | 15 55 00 00 15 55 00 00 |........|.U...U..|
|00001350| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001360| 15 55 00 00 15 55 00 00 | 15 55 00 00 00 00 00 00 |.U...U..|.U......|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 01 02 3f fb | aa a8 00 00 00 00 00 00 |......?.|........|
|000013d0| 00 00 0a aa 00 00 15 55 | 00 00 15 55 00 00 15 55 |.......U|...U...U|
|000013e0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000013f0| 00 00 15 55 00 00 15 55 | 00 00 00 00 00 00 00 00 |...U...U|........|
|00001400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 01 02 3f fb aa a8 | 00 00 00 00 00 00 00 00 |....?...|........|
|00001460| 0a aa 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.....U..|.U...U..|
|00001470| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001480| 15 55 00 00 15 55 00 00 | 00 00 00 00 00 00 00 00 |.U...U..|........|
|00001490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 01 02 3f fb aa a8 00 00 | 00 00 00 00 00 00 0a aa |..?.....|........|
|000014f0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001500| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001510| 00 00 15 55 00 00 00 00 | 00 00 00 00 00 00 00 00 |...U....|........|
|00001520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 02 |........|........|
|00001570| 3f fb aa a8 00 00 00 00 | 00 00 00 00 0a aa 00 00 |?.......|........|
|00001580| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001590| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|000015a0| 15 55 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.U......|........|
|000015b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 6c |........|.......l|
|00001600| 05 79 2c a4 00 00 00 00 | 00 23 00 00 00 41 00 02 |.y,.....|.#...A..|
|00001610| 04 4e 6f 6e 65 60 00 f8 | 00 00 02 08 00 00 02 08 |.None`..|........|
|00001620| 00 00 00 0c 00 00 09 44 | 69 6d 65 6e 73 69 6f 6e |.......D|imension|
|00001630| 02 08 00 00 02 08 00 00 | 00 0c 00 00 07 73 6c 61 |........|.....sla|
|00001640| 73 68 65 73 00 00 01 1c | 00 00 00 00 3f e4 00 04 |shes....|....?...|
|00001650| 00 00 00 00 00 01 00 01 | 00 01 00 00 00 00 00 00 |........|........|
|00001660| 00 56 00 00 00 00 40 88 | 00 00 00 5c 05 79 2c a4 |.V....@.|...\.y,.|
|00001670| 00 00 00 00 00 37 00 00 | 00 41 00 02 00 00 00 00 |.....7..|.A......|
|00001680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001690| 00 00 00 00 00 0c 0a 53 | 79 6d 62 6f 6c 20 23 31 |.......S|ymbol #1|
|000016a0| 31 14 00 37 6d 3c 00 14 | 00 0d ff fb 00 03 09 53 |1..7m<..|.......S|
|000016b0| 79 6d 62 6f 6c 20 23 32 | 28 6e 00 37 d6 6c 00 ce |ymbol #2|(n.7.l..|
|000016c0| 48 6c 00 32 00 00 01 bc | 05 79 2c a4 00 00 00 00 |Hl.2....|.y,.....|
|000016d0| 00 21 00 00 00 41 00 68 | 00 00 00 00 02 06 8a 04 |.!...A.h|........|
|000016e0| 00 00 00 00 02 06 a6 2c | 00 00 00 00 00 00 00 00 |.......,|........|
|000016f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001700| 00 00 00 00 00 00 00 00 | 02 06 88 a0 00 00 00 00 |........|........|
|00001710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001720| 00 00 00 00 00 00 00 00 | 02 06 af c4 00 00 00 00 |........|........|
|00001730| 02 06 84 94 02 06 84 38 | 00 00 00 00 00 00 00 00 |.......8|........|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 40 |........|.......@|
|00001880| 00 00 00 4a 05 79 2c a4 | 00 00 00 00 00 39 00 00 |...J.y,.|.....9..|
|00001890| 00 41 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.A......|........|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 02 06 a4 3c 02 06 |........|.....<..|
|000018b0| a6 08 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 52 05 79 |........|.....R.y|
|000018d0| 2c a4 00 00 00 00 00 33 | 00 00 00 40 00 00 00 00 |,......3|...@....|
|000018e0| 00 00 00 00 00 00 00 00 | 00 50 00 33 00 cb 00 97 |........|.P.3....|
|000018f0| 00 00 00 00 02 06 a6 f0 | 02 06 a5 64 08 63 6f 6d |........|...d.com|
|00001900| 6d 61 6e 64 73 43 6f 6d | 6d 61 6e 64 73 67 72 67 |mandsCom|mandsgrg|
|00001910| 72 67 72 67 72 67 72 67 | 72 67 72 67 00 00 05 08 |rgrgrgrg|rgrg....|
|00001920| 05 79 2c a4 00 00 00 00 | 00 31 00 00 00 40 04 6d |.y,.....|.1...@.m|
|00001930| 6f 76 65 61 6e 64 00 00 | 00 00 00 00 00 00 00 ff |oveand..|........|
|00001940| 00 00 00 ff ff ff 00 00 | ff ff 00 00 00 00 04 d4 |........|........|
|00001950| 50 52 4f 43 45 44 55 52 | 45 20 4d 6f 76 65 4d 61 |PROCEDUR|E MoveMa|
|00001960| 63 72 6f 3b 0d 56 41 52 | 0d 09 61 2c 69 20 3a 20 |cro;.VAR|..a,i : |
|00001970| 49 4e 54 45 47 45 52 3b | 0d 09 78 2c 79 2c 64 2c |INTEGER;|..x,y,d,|
|00001980| 76 20 3a 20 52 45 41 4c | 3b 0d 09 64 6f 6e 65 20 |v : REAL|;..done |
|00001990| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 0d 09 68 20 3a 20 |: BOOLEA|N;..h : |
|000019a0| 48 61 6e 64 6c 65 3b 0d | 09 73 2c 73 32 20 3a 20 |Handle;.|.s,s2 : |
|000019b0| 53 54 52 49 4e 47 3b 0d | 09 0d 09 50 52 4f 43 45 |STRING;.|...PROCE|
|000019c0| 44 55 52 45 20 4d 6f 76 | 65 49 74 3b 0d 09 42 45 |DURE Mov|eIt;..BE|
|000019d0| 47 49 4e 0d 09 09 57 48 | 49 4c 45 20 4e 4f 54 20 |GIN...WH|ILE NOT |
|000019e0| 4d 6f 75 73 65 44 6f 77 | 6e 28 78 2c 79 29 20 44 |MouseDow|n(x,y) D|
|000019f0| 4f 20 42 45 47 49 4e 0d | 09 09 09 09 49 46 20 4b |O BEGIN.|....IF K|
|00001a00| 65 79 44 6f 77 6e 28 61 | 29 20 7c 20 41 75 74 6f |eyDown(a|) | Auto|
|00001a10| 4b 65 79 28 61 29 20 54 | 48 45 4e 20 42 45 47 49 |Key(a) T|HEN BEGI|
|00001a20| 4e 0d 09 09 09 09 09 09 | 49 46 20 61 20 3d 20 32 |N.......|IF a = 2|
|00001a30| 39 20 54 48 45 4e 20 4d | 6f 76 65 4f 62 6a 73 28 |9 THEN M|oveObjs(|
|00001a40| 64 2c 30 2c 46 41 4c 53 | 45 2c 46 41 4c 53 45 29 |d,0,FALS|E,FALSE)|
|00001a50| 0d 09 09 09 09 09 09 45 | 4c 53 45 20 49 46 20 61 |.......E|LSE IF a|
|00001a60| 20 3d 20 32 38 20 54 48 | 45 4e 20 4d 6f 76 65 4f | = 28 TH|EN MoveO|
|00001a70| 62 6a 73 28 2d 64 2c 30 | 2c 46 41 4c 53 45 2c 46 |bjs(-d,0|,FALSE,F|
|00001a80| 41 4c 53 45 29 0d 09 09 | 09 09 09 09 45 4c 53 45 |ALSE)...|....ELSE|
|00001a90| 20 49 46 20 61 20 3d 20 | 33 30 20 54 48 45 4e 20 | IF a = |30 THEN |
|00001aa0| 4d 6f 76 65 4f 62 6a 73 | 28 30 2c 64 2c 46 41 4c |MoveObjs|(0,d,FAL|
|00001ab0| 53 45 2c 46 41 4c 53 45 | 29 0d 09 09 09 09 09 09 |SE,FALSE|).......|
|00001ac0| 45 4c 53 45 20 49 46 20 | 61 20 3d 20 33 31 20 54 |ELSE IF |a = 31 T|
|00001ad0| 48 45 4e 20 4d 6f 76 65 | 4f 62 6a 73 28 30 2c 2d |HEN Move|Objs(0,-|
|00001ae0| 64 2c 46 41 4c 53 45 2c | 46 41 4c 53 45 29 3b 0d |d,FALSE,|FALSE);.|
|00001af0| 09 09 09 09 09 09 52 65 | 64 72 61 77 3b 0d 09 09 |......Re|draw;...|
|00001b00| 09 09 09 45 4e 44 3b 0d | 09 09 09 45 4e 44 0d 09 |...END;.|...END..|
|00001b10| 45 4e 44 3b 0d 09 0d 42 | 45 47 49 4e 0d 09 64 6f |END;...B|EGIN..do|
|00001b20| 6e 65 20 3a 3d 20 46 41 | 4c 53 45 3b 0d 09 69 20 |ne := FA|LSE;..i |
|00001b30| 3a 3d 20 31 3b 0d 09 76 | 20 3a 3d 20 30 3b 0d 09 |:= 1;..v| := 0;..|
|00001b40| 57 48 49 4c 45 20 28 69 | 20 3c 3d 20 43 6c 61 73 |WHILE (i| <= Clas|
|00001b50| 73 4e 75 6d 29 20 26 20 | 4e 4f 54 20 64 6f 6e 65 |sNum) & |NOT done|
|00001b60| 20 44 4f 20 42 45 47 49 | 4e 0d 09 09 09 73 20 3a | DO BEGI|N....s :|
|00001b70| 3d 20 43 6c 61 73 73 4c | 69 73 74 28 69 29 3b 0d |= ClassL|ist(i);.|
|00001b80| 09 09 09 49 46 20 43 6f | 70 79 28 73 2c 31 2c 32 |...IF Co|py(s,1,2|
|00001b90| 29 20 3d 20 27 4d 53 27 | 20 54 48 45 4e 20 42 45 |) = 'MS'| THEN BE|
|00001ba0| 47 49 4e 0d 09 09 09 09 | 09 73 32 20 3a 3d 20 73 |GIN.....|.s2 := s|
|00001bb0| 3b 0d 09 09 09 09 09 44 | 65 6c 65 74 65 28 73 32 |;......D|elete(s2|
|00001bc0| 2c 31 2c 32 29 3b 0d 09 | 09 09 09 09 76 20 3a 3d |,1,2);..|....v :=|
|00001bd0| 20 53 74 72 32 4e 75 6d | 28 73 32 29 3b 0d 09 09 | Str2Num|(s2);...|
|00001be0| 09 09 09 64 6f 6e 65 20 | 3a 3d 20 54 52 55 45 3b |...done |:= TRUE;|
|00001bf0| 0d 09 09 09 09 09 44 65 | 6c 43 6c 61 73 73 28 73 |......De|lClass(s|
|00001c00| 29 3b 0d 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 69 |);.....E|ND;....i|
|00001c10| 20 3a 3d 20 69 20 2b 20 | 31 3b 0d 09 09 45 4e 44 | := i + |1;...END|
|00001c20| 3b 0d 09 64 6f 6e 65 20 | 3a 3d 20 46 41 4c 53 45 |;..done |:= FALSE|
|00001c30| 3b 0d 09 64 20 3a 3d 20 | 44 69 73 74 44 69 61 6c |;..d := |DistDial|
|00001c40| 6f 67 28 27 45 6e 74 65 | 72 20 74 68 65 20 69 6e |og('Ente|r the in|
|00001c50| 63 72 65 6d 65 6e 74 20 | 64 69 73 74 61 6e 63 65 |crement |distance|
|00001c60| 3a 27 2c 4e 75 6d 32 53 | 74 72 46 28 76 29 29 3b |:',Num2S|trF(v));|
|00001c70| 0d 09 49 46 20 4e 4f 54 | 20 44 69 64 43 61 6e 63 |..IF NOT| DidCanc|
|00001c80| 65 6c 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |el THEN |BEGIN...|
|00001c90| 09 4e 61 6d 65 43 6c 61 | 73 73 28 43 6f 6e 63 61 |.NameCla|ss(Conca|
|00001ca0| 74 28 27 4d 53 27 2c 4e | 75 6d 32 53 74 72 28 39 |t('MS',N|um2Str(9|
|00001cb0| 2c 64 29 29 29 3b 0d 09 | 09 09 57 48 49 4c 45 20 |,d)));..|..WHILE |
|00001cc0| 4e 4f 54 20 64 6f 6e 65 | 20 44 4f 20 42 45 47 49 |NOT done| DO BEGI|
|00001cd0| 4e 0d 09 09 09 09 09 4d | 6f 76 65 49 74 3b 0d 09 |N......M|oveIt;..|
|00001ce0| 09 09 09 09 68 20 3a 3d | 20 50 69 63 6b 4f 62 6a |....h :=| PickObj|
|00001cf0| 65 63 74 28 78 2c 79 29 | 3b 0d 09 09 09 09 09 49 |ect(x,y)|;......I|
|00001d00| 46 20 68 20 3c 3e 20 4e | 49 4c 20 54 48 45 4e 20 |F h <> N|IL THEN |
|00001d10| 42 45 47 49 4e 0d 09 09 | 09 09 09 09 09 49 46 20 |BEGIN...|.....IF |
|00001d20| 53 68 69 66 74 20 54 48 | 45 4e 20 42 45 47 49 4e |Shift TH|EN BEGIN|
|00001d30| 0d 09 09 09 09 09 09 09 | 09 09 49 46 20 53 65 6c |........|..IF Sel|
|00001d40| 65 63 74 65 64 28 68 29 | 20 54 48 45 4e 20 53 65 |ected(h)| THEN Se|
|00001d50| 74 44 53 65 6c 65 63 74 | 28 68 29 0d 09 09 09 09 |tDSelect|(h).....|
|00001d60| 09 09 09 09 09 45 4c 53 | 45 20 53 65 74 53 65 6c |.....ELS|E SetSel|
|00001d70| 65 63 74 28 68 29 3b 0d | 09 09 09 09 09 09 09 09 |ect(h);.|........|
|00001d80| 45 4e 44 0d 09 09 09 09 | 09 09 09 45 4c 53 45 20 |END.....|...ELSE |
|00001d90| 42 45 47 49 4e 0d 09 09 | 09 09 09 09 09 09 09 44 |BEGIN...|.......D|
|00001da0| 53 65 6c 65 63 74 41 6c | 6c 3b 0d 09 09 09 09 09 |SelectAl|l;......|
|00001db0| 09 09 09 09 53 65 74 53 | 65 6c 65 63 74 28 68 29 |....SetS|elect(h)|
|00001dc0| 3b 0d 09 09 09 09 09 09 | 09 09 45 4e 44 3b 0d 09 |;.......|..END;..|
|00001dd0| 09 09 09 09 09 09 52 65 | 64 72 61 77 3b 0d 09 09 |......Re|draw;...|
|00001de0| 09 09 09 09 45 4e 44 0d | 09 09 09 09 09 45 4c 53 |....END.|.....ELS|
|00001df0| 45 20 64 6f 6e 65 20 3a | 3d 20 54 52 55 45 3b 0d |E done :|= TRUE;.|
|00001e00| 09 09 09 09 45 4e 44 3b | 0d 09 09 45 4e 44 3b 0d |....END;|...END;.|
|00001e10| 45 4e 44 3b 0d 52 55 4e | 28 4d 6f 76 65 4d 61 63 |END;.RUN|(MoveMac|
|00001e20| 72 6f 29 3b 00 00 07 37 | 05 79 2c a4 00 00 00 00 |ro);...7|.y,.....|
|00001e30| 00 31 00 00 00 40 12 6e | 75 6d 20 64 75 70 20 61 |.1...@.n|um dup a|
|00001e40| 6c 6f 6e 67 20 6c 69 6e | 65 67 72 67 72 67 72 67 |long lin|egrgrgrg|
|00001e50| 72 67 72 67 72 67 07 03 | 50 52 4f 43 45 44 55 52 |rgrgrg..|PROCEDUR|
|00001e60| 45 20 4e 75 6d 44 75 70 | 41 6c 6f 6e 67 4c 69 6e |E NumDup|AlongLin|
|00001e70| 65 3b 0d 7b 20 54 61 6b | 65 73 20 74 68 65 20 73 |e;.{ Tak|es the s|
|00001e80| 65 6c 65 63 74 69 6f 6e | 20 61 6e 64 20 64 75 70 |election| and dup|
|00001e90| 6c 69 63 61 74 65 73 20 | 61 6c 6f 6e 67 20 61 20 |licates |along a |
|00001ea0| 6c 69 6e 65 20 61 6e 64 | 20 65 71 75 61 6c 6c 79 |line and| equally|
|00001eb0| 20 73 70 61 63 65 73 20 | 74 68 65 20 0d 7b 09 09 | spaces |the .{..|
|00001ec0| 74 68 65 20 64 75 70 6c | 69 63 61 74 65 73 2e 20 |the dupl|icates. |
|00001ed0| 20 54 68 65 20 75 73 65 | 72 20 6d 75 73 74 20 61 | The use|r must a|
|00001ee0| 6c 73 6f 20 73 70 65 63 | 69 66 79 20 61 20 63 6f |lso spec|ify a co|
|00001ef0| 6e 74 72 6f 6c 20 70 6f | 69 6e 74 20 6f 6e 20 74 |ntrol po|int on t|
|00001f00| 68 65 0d 7b 09 09 73 65 | 6c 65 63 74 69 6f 6e 20 |he.{..se|lection |
|00001f10| 77 68 69 63 68 20 77 69 | 6c 6c 20 62 65 20 74 68 |which wi|ll be th|
|00001f20| 65 20 70 61 72 74 20 6f | 66 20 74 68 65 20 64 75 |e part o|f the du|
|00001f30| 70 6c 69 63 61 74 65 20 | 70 6c 61 63 65 64 20 6f |plicate |placed o|
|00001f40| 6e 20 74 68 65 20 6c 69 | 6e 65 2e 0d 7d 0d 56 41 |n the li|ne..}.VA|
|00001f50| 52 0d 09 69 09 09 09 09 | 3a 20 49 4e 54 45 47 45 |R..i....|: INTEGE|
|00001f60| 52 3b 09 7b 20 4c 6f 6f | 70 20 63 6f 6e 74 72 6f |R;.{ Loo|p contro|
|00001f70| 6c 20 7d 0d 09 6e 75 6d | 44 75 70 73 09 09 09 3a |l }..num|Dups...:|
|00001f80| 20 4c 4f 4e 47 49 4e 54 | 3b 20 09 7b 20 4e 75 6d | LONGINT|; .{ Num|
|00001f90| 62 65 72 20 6f 66 20 64 | 75 70 6c 69 63 61 74 65 |ber of d|uplicate|
|00001fa0| 73 20 7d 0d 09 74 6f 74 | 4c 65 6e 67 74 68 20 09 |s }..tot|Length .|
|00001fb0| 09 3a 20 52 45 41 4c 3b | 09 09 7b 20 54 6f 74 61 |.: REAL;|..{ Tota|
|00001fc0| 6c 20 6c 65 6e 67 74 68 | 20 6f 66 20 64 75 70 20 |l length| of dup |
|00001fd0| 6c 69 6e 65 20 7d 0d 09 | 64 75 70 44 69 73 74 20 |line }..|dupDist |
|00001fe0| 09 09 3a 20 52 45 41 4c | 3b 09 09 7b 20 53 65 70 |..: REAL|;..{ Sep|
|00001ff0| 61 72 61 74 69 6f 6e 20 | 62 65 74 77 65 65 6e 20 |aration |between |
|00002000| 64 75 70 6c 69 63 61 74 | 65 73 20 7d 0d 09 78 31 |duplicat|es }..x1|
|00002010| 2c 20 79 31 2c 20 78 32 | 2c 20 79 32 09 3a 20 52 |, y1, x2|, y2.: R|
|00002020| 45 41 4c 3b 09 09 7b 20 | 45 6e 64 20 70 6f 69 6e |EAL;..{ |End poin|
|00002030| 74 73 20 6f 66 20 64 75 | 70 6c 69 63 61 74 69 6f |ts of du|plicatio|
|00002040| 6e 20 6c 69 6e 65 20 7d | 0d 09 78 43 6f 6d 70 2c |n line }|..xComp,|
|00002050| 20 79 43 6f 6d 70 09 3a | 20 52 45 41 4c 3b 09 09 | yComp.:| REAL;..|
|00002060| 7b 20 43 6f 6d 70 6f 6e | 65 6e 74 73 20 6f 66 20 |{ Compon|ents of |
|00002070| 74 68 65 20 64 75 70 6c | 69 63 61 74 69 6f 6e 20 |the dupl|ication |
|00002080| 76 65 63 74 6f 72 20 7d | 0d 09 6f 66 66 58 2c 20 |vector }|..offX, |
|00002090| 6f 66 66 59 09 09 3a 20 | 52 45 41 4c 3b 09 09 7b |offY..: |REAL;..{|
|000020a0| 20 4f 66 66 73 65 74 20 | 66 72 6f 6d 20 6f 72 69 | Offset |from ori|
|000020b0| 67 69 6e 61 6c 20 74 6f | 20 63 6f 70 79 20 7d 0d |ginal to| copy }.|
|000020c0| 09 63 65 6e 58 2c 20 63 | 65 6e 59 09 09 3a 20 52 |.cenX, c|enY..: R|
|000020d0| 45 41 4c 3b 09 09 7b 20 | 4c 6f 63 61 74 69 6f 6e |EAL;..{ |Location|
|000020e0| 20 6f 66 20 70 6f 69 6e | 74 20 74 6f 20 62 65 20 | of poin|t to be |
|000020f0| 70 6c 61 63 65 64 20 61 | 6c 6f 6e 67 20 6c 69 6e |placed a|long lin|
|00002100| 65 20 7d 0d 0d 42 45 47 | 49 4e 0d 09 49 46 20 28 |e }..BEG|IN..IF (|
|00002110| 46 53 41 63 74 4c 61 79 | 65 72 20 3c 3e 20 4e 49 |FSActLay|er <> NI|
|00002120| 4c 29 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |L) THEN |BEGIN...|
|00002130| 7b 20 47 65 74 20 74 68 | 65 20 64 75 70 6c 69 63 |{ Get th|e duplic|
|00002140| 61 74 69 6f 6e 20 6c 69 | 6e 65 20 7d 0d 09 09 4d |ation li|ne }...M|
|00002150| 65 73 73 61 67 65 28 27 | 44 72 61 77 20 74 68 65 |essage('|Draw the|
|00002160| 20 6c 69 6e 65 20 74 6f | 20 64 75 70 6c 69 63 61 | line to| duplica|
|00002170| 74 65 20 61 6c 6f 6e 67 | 27 29 3b 0d 09 09 47 65 |te along|');...Ge|
|00002180| 74 4c 69 6e 65 28 78 31 | 2c 20 79 31 2c 20 78 32 |tLine(x1|, y1, x2|
|00002190| 2c 20 79 32 29 3b 0d 0d | 09 09 7b 20 47 65 74 20 |, y2);..|..{ Get |
|000021a0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 64 75 |the numb|er of du|
|000021b0| 70 6c 69 63 61 74 65 73 | 20 7d 0d 09 09 49 46 20 |plicates| }...IF |
|000021c0| 28 78 31 20 3c 3e 20 78 | 32 29 20 7c 20 28 79 31 |(x1 <> x|2) | (y1|
|000021d0| 20 3c 3e 20 79 32 29 20 | 54 48 45 4e 20 42 45 47 | <> y2) |THEN BEG|
|000021e0| 49 4e 0d 09 09 09 6e 75 | 6d 44 75 70 73 20 3a 3d |IN....nu|mDups :=|
|000021f0| 20 49 6e 74 44 69 61 6c | 6f 67 28 27 45 6e 74 65 | IntDial|og('Ente|
|00002200| 72 20 6e 75 6d 62 65 72 | 20 63 6f 70 69 65 73 20 |r number| copies |
|00002210| 6f 6e 20 6c 69 6e 65 3a | 27 2c 20 27 30 27 29 3b |on line:|', '0');|
|00002220| 0d 09 09 09 0d 09 09 09 | 4d 65 73 73 61 67 65 28 |........|Message(|
|00002230| 27 53 65 74 20 74 68 65 | 20 70 6f 69 6e 74 20 6f |'Set the| point o|
|00002240| 66 20 73 65 6c 65 63 74 | 69 6f 6e 20 74 6f 20 6c |f select|ion to l|
|00002250| 69 65 20 61 6c 6f 6e 67 | 20 6c 69 6e 65 27 29 3b |ie along| line');|
|00002260| 0d 09 09 09 47 65 74 50 | 74 28 63 65 6e 58 2c 20 |....GetP|t(cenX, |
|00002270| 63 65 6e 59 29 3b 0d 09 | 09 09 0d 09 09 09 49 46 |cenY);..|......IF|
|00002280| 20 28 6e 75 6d 44 75 70 | 73 20 3e 20 31 29 20 54 | (numDup|s > 1) T|
|00002290| 48 45 4e 20 42 45 47 49 | 4e 0d 09 09 09 09 7b 20 |HEN BEGI|N.....{ |
|000022a0| 43 61 6c 63 75 6c 61 74 | 65 20 74 68 65 20 6e 75 |Calculat|e the nu|
|000022b0| 6d 62 65 72 20 6f 66 20 | 64 75 70 6c 69 63 61 74 |mber of |duplicat|
|000022c0| 65 73 20 7d 0d 09 09 09 | 09 74 6f 74 4c 65 6e 67 |es }....|.totLeng|
|000022d0| 74 68 20 3a 3d 20 53 71 | 72 74 28 28 78 32 20 2d |th := Sq|rt((x2 -|
|000022e0| 20 78 31 29 2a 2a 32 20 | 2b 20 28 79 32 20 2d 20 | x1)**2 |+ (y2 - |
|000022f0| 79 31 29 2a 2a 32 29 3b | 0d 09 09 09 09 64 75 70 |y1)**2);|.....dup|
|00002300| 44 69 73 74 20 3a 3d 20 | 74 6f 74 4c 65 6e 67 74 |Dist := |totLengt|
|00002310| 68 20 2f 20 28 6e 75 6d | 44 75 70 73 20 2d 20 31 |h / (num|Dups - 1|
|00002320| 29 3b 0d 09 09 09 09 09 | 0d 09 09 09 09 7b 20 53 |);......|.....{ S|
|00002330| 65 74 20 64 75 70 6c 69 | 63 61 74 69 6f 6e 20 76 |et dupli|cation v|
|00002340| 65 63 74 6f 72 20 7d 0d | 09 09 09 09 78 43 6f 6d |ector }.|....xCom|
|00002350| 70 20 3a 3d 20 28 78 32 | 20 2d 20 78 31 29 20 2f |p := (x2| - x1) /|
|00002360| 20 74 6f 74 4c 65 6e 67 | 74 68 20 2a 20 64 75 70 | totLeng|th * dup|
|00002370| 44 69 73 74 3b 0d 09 09 | 09 09 79 43 6f 6d 70 20 |Dist;...|..yComp |
|00002380| 3a 3d 20 28 79 32 20 2d | 20 79 31 29 20 2f 20 74 |:= (y2 -| y1) / t|
|00002390| 6f 74 4c 65 6e 67 74 68 | 20 2a 20 64 75 70 44 69 |otLength| * dupDi|
|000023a0| 73 74 3b 0d 0d 09 09 09 | 09 7b 20 43 72 65 61 74 |st;.....|.{ Creat|
|000023b0| 65 20 74 68 65 20 66 69 | 72 73 74 20 64 75 70 6c |e the fi|rst dupl|
|000023c0| 69 63 61 74 65 20 7d 0d | 09 09 09 09 6f 66 66 58 |icate }.|....offX|
|000023d0| 20 3a 3d 20 78 31 20 2d | 20 63 65 6e 58 3b 0d 09 | := x1 -| cenX;..|
|000023e0| 09 09 09 6f 66 66 59 20 | 3a 3d 20 79 31 20 2d 20 |...offY |:= y1 - |
|000023f0| 63 65 6e 59 3b 0d 09 09 | 09 09 44 75 70 6c 69 63 |cenY;...|..Duplic|
|00002400| 61 74 65 28 6f 66 66 58 | 2c 20 6f 66 66 59 29 3b |ate(offX|, offY);|
|00002410| 0d 09 09 09 09 0d 09 09 | 09 09 7b 20 43 72 65 61 |........|..{ Crea|
|00002420| 74 65 20 74 68 65 20 72 | 65 73 74 20 6f 66 20 74 |te the r|est of t|
|00002430| 68 65 20 64 75 70 6c 69 | 63 61 74 65 73 20 7d 0d |he dupli|cates }.|
|00002440| 09 09 09 09 46 4f 52 20 | 69 20 3a 3d 20 31 20 54 |....FOR |i := 1 T|
|00002450| 4f 20 28 6e 75 6d 44 75 | 70 73 20 2d 20 31 29 20 |O (numDu|ps - 1) |
|00002460| 44 4f 20 44 75 70 6c 69 | 63 61 74 65 28 78 43 6f |DO Dupli|cate(xCo|
|00002470| 6d 70 2c 20 79 43 6f 6d | 70 29 3b 0d 09 09 09 09 |mp, yCom|p);.....|
|00002480| 09 0d 09 09 09 09 43 6c | 72 4d 65 73 73 61 67 65 |......Cl|rMessage|
|00002490| 3b 0d 09 09 09 45 4e 44 | 0d 09 09 09 45 4c 53 45 |;....END|....ELSE|
|000024a0| 20 4d 65 73 73 61 67 65 | 28 27 44 75 70 6c 69 63 | Message|('Duplic|
|000024b0| 61 74 69 6f 6e 20 64 69 | 73 74 61 6e 63 65 20 6d |ation di|stance m|
|000024c0| 75 73 74 20 62 65 20 3e | 20 31 21 27 29 3b 0d 09 |ust be >| 1!');..|
|000024d0| 09 45 4e 44 0d 09 09 45 | 4c 53 45 20 4d 65 73 73 |.END...E|LSE Mess|
|000024e0| 61 67 65 28 27 49 6c 6c | 65 67 61 6c 20 6c 69 6e |age('Ill|egal lin|
|000024f0| 65 20 73 70 65 63 69 66 | 69 65 64 21 27 29 3b 0d |e specif|ied!');.|
|00002500| 09 45 4e 44 0d 09 45 4c | 53 45 20 4d 65 73 73 61 |.END..EL|SE Messa|
|00002510| 67 65 28 27 4e 6f 20 6f | 62 6a 65 63 74 73 20 73 |ge('No o|bjects s|
|00002520| 65 6c 65 63 74 65 64 21 | 27 29 3b 0d 45 4e 44 3b |elected!|');.END;|
|00002530| 20 7b 20 4e 75 6d 44 75 | 70 41 6c 6f 6e 67 4c 69 | { NumDu|pAlongLi|
|00002540| 6e 65 20 7d 0d 0d 52 75 | 6e 28 4e 75 6d 44 75 70 |ne }..Ru|n(NumDup|
|00002550| 41 6c 6f 6e 67 4c 69 6e | 65 29 3b 00 00 04 6a 05 |AlongLin|e);...j.|
|00002560| 79 2c a4 00 00 00 00 00 | 31 00 00 00 40 05 6e 75 |y,......|1...@.nu|
|00002570| 64 67 65 6e 64 00 6e 00 | 00 00 00 00 00 00 00 00 |dgend.n.|........|
|00002580| 7b 5a 94 80 3b 78 16 00 | 36 47 90 00 74 04 36 7b |{Z..;x..|6G..t.6{|
|00002590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 2a 20 4e 55 44 47 |********|*.* NUDG|
|000025c0| 45 20 20 a9 20 31 39 39 | 32 20 47 72 61 70 68 73 |E  . 199|2 Graphs|
|000025d0| 6f 66 74 2c 20 49 6e 63 | 2e 20 20 20 20 20 20 20 |oft, Inc|.       |
|000025e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002600| 20 20 20 20 20 20 2a 0d | 2a 20 4e 75 64 67 65 20 |      *.|* Nudge |
|00002610| 69 73 20 64 65 73 69 67 | 6e 65 64 20 74 6f 20 61 |is desig|ned to a|
|00002620| 6c 6c 6f 77 20 74 68 65 | 20 75 73 65 72 20 74 6f |llow the| user to|
|00002630| 20 6d 6f 76 65 20 61 20 | 73 65 6c 65 63 74 65 64 | move a |selected|
|00002640| 20 6f 62 6a 65 63 74 2a | 0d 2a 20 61 20 73 70 65 | object*|.* a spe|
|00002650| 63 69 66 69 65 64 20 64 | 69 73 74 61 6e 63 65 20 |cified d|istance |
|00002660| 75 73 69 6e 67 20 74 68 | 65 20 61 72 72 6f 77 20 |using th|e arrow |
|00002670| 6b 65 79 73 2e 20 3c 45 | 73 63 3e 20 74 65 72 6d |keys. <E|sc> term|
|00002680| 69 6e 61 74 65 73 20 20 | 2a 0d 2a 20 74 68 65 20 |inates  |*.* the |
|00002690| 6d 61 63 72 6f 2e 20 20 | 20 20 20 20 20 20 20 20 |macro.  |        |
|000026a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026e0| 20 20 2a 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |  *.****|********|
|000026f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 7d 0d |********|******}.|
|00002710| 50 72 6f 63 65 64 75 72 | 65 20 4e 75 64 67 65 3b |Procedur|e Nudge;|
|00002720| 0d 56 41 52 0d 09 76 2c | 58 31 2c 59 31 20 3a 20 |.VAR..v,|X1,Y1 : |
|00002730| 52 45 41 4c 3b 0d 09 53 | 74 72 31 2c 53 74 72 32 |REAL;..S|tr1,Str2|
|00002740| 20 3a 20 53 54 52 49 4e | 47 3b 0d 09 4f 62 48 64 | : STRIN|G;..ObHd|
|00002750| 31 2c 20 4f 62 48 64 32 | 20 3a 20 48 41 4e 44 4c |1, ObHd2| : HANDL|
|00002760| 45 3b 0d 09 4b 43 6f 64 | 20 3a 20 49 4e 54 45 47 |E;..KCod| : INTEG|
|00002770| 45 52 3b 0d 42 45 47 49 | 4e 0d 09 56 3a 3d 41 62 |ER;.BEGI|N..V:=Ab|
|00002780| 73 28 44 69 73 74 44 69 | 61 6c 6f 67 28 27 45 6e |s(DistDi|alog('En|
|00002790| 74 65 72 20 6e 75 64 67 | 65 20 69 6e 63 72 65 6d |ter nudg|e increm|
|000027a0| 65 6e 74 3a 27 2c 27 30 | 27 29 29 3b 0d 09 49 46 |ent:','0|'));..IF|
|000027b0| 20 4e 4f 54 20 44 69 64 | 43 61 6e 63 65 6c 20 54 | NOT Did|Cancel T|
|000027c0| 48 45 4e 20 42 45 47 49 | 4e 0d 09 53 79 73 42 65 |HEN BEGI|N..SysBe|
|000027d0| 65 70 3b 0d 09 47 65 74 | 50 74 28 58 31 2c 59 31 |ep;..Get|Pt(X1,Y1|
|000027e0| 29 3b 0d 09 4f 62 48 64 | 31 3a 3d 50 69 63 6b 4f |);..ObHd|1:=PickO|
|000027f0| 62 6a 65 63 74 28 58 31 | 2c 59 31 29 3b 0d 09 53 |bject(X1|,Y1);..S|
|00002800| 65 74 53 65 6c 65 63 74 | 28 4f 62 48 64 31 29 3b |etSelect|(ObHd1);|
|00002810| 0d 09 52 65 64 72 61 77 | 3b 0d 09 57 48 49 4c 45 |..Redraw|;..WHILE|
|00002820| 20 4b 43 6f 64 3c 3e 32 | 37 20 44 4f 20 42 45 47 | KCod<>2|7 DO BEG|
|00002830| 49 4e 0d 09 09 49 46 20 | 4b 65 79 44 6f 77 6e 28 |IN...IF |KeyDown(|
|00002840| 4b 43 6f 64 29 20 54 48 | 45 4e 20 42 45 47 49 4e |KCod) TH|EN BEGIN|
|00002850| 0d 09 09 09 49 46 20 4b | 43 6f 64 20 3d 20 32 38 |....IF K|Cod = 28|
|00002860| 20 54 48 45 4e 20 48 4d | 6f 76 65 28 4f 62 48 64 | THEN HM|ove(ObHd|
|00002870| 31 2c 2d 56 2c 30 29 0d | 09 09 09 09 45 4c 53 45 |1,-V,0).|....ELSE|
|00002880| 20 49 46 20 4b 43 6f 64 | 20 3d 20 32 39 20 54 48 | IF KCod| = 29 TH|
|00002890| 45 4e 20 48 4d 6f 76 65 | 28 4f 62 48 64 31 2c 56 |EN HMove|(ObHd1,V|
|000028a0| 2c 30 29 0d 09 09 09 09 | 45 4c 53 45 20 49 46 20 |,0).....|ELSE IF |
|000028b0| 4b 43 6f 64 20 3d 20 33 | 30 20 54 48 45 4e 20 48 |KCod = 3|0 THEN H|
|000028c0| 4d 6f 76 65 28 4f 62 48 | 64 31 2c 30 2c 56 29 0d |Move(ObH|d1,0,V).|
|000028d0| 09 09 09 09 45 4c 53 45 | 20 49 46 20 4b 43 6f 64 |....ELSE| IF KCod|
|000028e0| 20 3d 20 33 31 20 54 48 | 45 4e 20 48 4d 6f 76 65 | = 31 TH|EN HMove|
|000028f0| 28 4f 62 48 64 31 2c 30 | 2c 2d 56 29 0d 09 09 09 |(ObHd1,0|,-V)....|
|00002900| 09 45 4c 53 45 20 49 46 | 20 4b 43 6f 64 20 3d 20 |.ELSE IF| KCod = |
|00002910| 36 33 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |63 THEN |BEGIN...|
|00002920| 09 09 09 4d 65 73 73 61 | 67 65 28 27 4e 75 64 67 |...Messa|ge('Nudg|
|00002930| 65 20 31 2e 30 20 2d 20 | a9 31 39 39 32 20 47 72 |e 1.0 - |.1992 Gr|
|00002940| 61 70 68 73 6f 66 74 2c | 49 6e 63 2e 27 29 3b 0d |aphsoft,|Inc.');.|
|00002950| 09 09 09 09 09 57 61 69 | 74 28 32 29 3b 0d 09 09 |.....Wai|t(2);...|
|00002960| 09 09 09 43 6c 72 4d 65 | 73 73 61 67 65 3b 0d 09 |...ClrMe|ssage;..|
|00002970| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 52 65 64 72 |....END;|....Redr|
|00002980| 61 77 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 3b |aw;...EN|D;..END;|
|00002990| 0d 09 53 65 74 44 53 65 | 6c 65 63 74 28 4f 62 48 |..SetDSe|lect(ObH|
|000029a0| 64 31 29 3b 0d 09 4b 43 | 6f 64 3a 3d 30 3b 0d 45 |d1);..KC|od:=0;.E|
|000029b0| 4e 44 3b 0d 45 4e 44 3b | 0d 52 75 6e 28 4e 75 64 |ND;.END;|.Run(Nud|
|000029c0| 67 65 29 3b 0d 00 00 0b | 58 05 79 2c a4 02 06 a4 |ge);....|X.y,....|
|000029d0| fc 00 31 00 00 00 40 0b | 61 75 74 6f 20 6e 75 6d |..1...@.|auto num|
|000029e0| 62 65 72 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ber.....|........|
|000029f0| 74 ab a4 00 74 2c 18 0b | 24 7b 41 75 74 6f 4e 75 |t...t,..|${AutoNu|
|00002a00| 6d 20 76 31 2e 30 20 a9 | 31 39 39 32 20 47 72 61 |m v1.0 .|1992 Gra|
|00002a10| 70 68 73 6f 66 74 20 54 | 65 63 68 20 53 65 72 76 |phsoft T|ech Serv|
|00002a20| 69 63 65 73 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ices}.{-|--------|
|00002a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a50| 2d 2d 7d 0d 7b 41 75 74 | 6f 4e 75 6d 62 65 72 20 |--}.{Aut|oNumber |
|00002a60| 61 6c 6c 6f 77 73 20 74 | 68 65 20 75 73 65 72 20 |allows t|he user |
|00002a70| 74 6f 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |to autom|atically|
|00002a80| 20 6e 75 6d 62 65 72 20 | 61 6e 64 20 69 6e 63 72 | number |and incr|
|00002a90| 65 6d 65 6e 74 7d 0d 7b | 74 65 78 74 20 65 6e 74 |ement}.{|text ent|
|00002aa0| 69 74 69 65 73 20 69 6e | 20 61 20 64 72 61 77 69 |ities in| a drawi|
|00002ab0| 6e 67 20 66 69 6c 65 2e | 20 20 20 20 20 20 20 20 |ng file.|        |
|00002ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002af0| 20 7d 0d 50 72 6f 63 65 | 64 75 72 65 20 41 75 74 | }.Proce|dure Aut|
|00002b00| 6f 4e 75 6d 3b 0d 56 41 | 52 0d 09 53 74 6f 70 2c |oNum;.VA|R..Stop,|
|00002b10| 52 61 6e 64 46 6c 61 67 | 20 3a 20 42 4f 4f 4c 45 |RandFlag| : BOOLE|
|00002b20| 41 4e 3b 0d 09 57 49 44 | 54 48 2c 54 4c 2c 4c 52 |AN;..WID|TH,TL,LR|
|00002b30| 2c 20 49 4e 44 58 3a 20 | 49 4e 54 45 47 45 52 3b |, INDX: |INTEGER;|
|00002b40| 0d 09 56 61 6c 32 2c 56 | 61 6c 34 2c 56 61 6c 36 |..Val2,V|al4,Val6|
|00002b50| 2c 56 61 6c 38 20 3a 20 | 53 54 52 49 4e 47 3b 0d |,Val8 : |STRING;.|
|00002b60| 0d 50 72 6f 63 65 64 75 | 72 65 20 41 6c 69 67 6e |.Procedu|re Align|
|00002b70| 53 63 6e 28 49 2c 4a 20 | 3a 20 49 4e 54 45 47 45 |Scn(I,J |: INTEGE|
|00002b80| 52 3b 20 56 41 52 20 54 | 4c 2c 4c 52 20 3a 20 49 |R; VAR T|L,LR : I|
|00002b90| 4e 54 45 47 45 52 29 3b | 20 7b 43 65 6e 74 65 72 |NTEGER);| {Center|
|00002ba0| 73 20 44 69 61 6c 6f 67 | 7d 0d 56 41 52 0d 09 73 |s Dialog|}.VAR..s|
|00002bb0| 63 72 78 31 2c 73 63 72 | 79 31 2c 73 63 72 78 32 |crx1,scr|y1,scrx2|
|00002bc0| 2c 73 63 72 79 32 2c 57 | 69 64 74 68 20 3a 20 49 |,scry2,W|idth : I|
|00002bd0| 4e 54 45 47 45 52 3b 0d | 42 45 47 49 4e 0d 09 47 |NTEGER;.|BEGIN..G|
|00002be0| 65 74 53 63 72 65 65 6e | 28 73 63 72 78 31 2c 73 |etScreen|(scrx1,s|
|00002bf0| 63 72 79 31 2c 73 63 72 | 78 32 2c 73 63 72 79 32 |cry1,scr|x2,scry2|
|00002c00| 29 3b 0d 09 57 69 64 74 | 68 3a 3d 20 4a 20 2d 20 |);..Widt|h:= J - |
|00002c10| 49 3b 0d 09 54 4c 3a 3d | 20 28 28 73 63 72 78 31 |I;..TL:=| ((scrx1|
|00002c20| 20 2b 20 73 63 72 78 32 | 29 20 44 49 56 20 32 29 | + scrx2|) DIV 2)|
|00002c30| 20 2d 20 28 57 69 64 74 | 68 20 44 49 56 20 32 29 | - (Widt|h DIV 2)|
|00002c40| 3b 0d 09 4c 52 3a 3d 20 | 54 4c 20 2b 20 57 69 64 |;..LR:= |TL + Wid|
|00002c50| 74 68 3b 0d 45 4e 44 3b | 0d 0d 50 72 6f 63 65 64 |th;.END;|..Proced|
|00002c60| 75 72 65 20 4d 61 6b 44 | 6c 6f 67 3b 09 7b 44 65 |ure MakD|log;.{De|
|00002c70| 66 69 6e 65 73 20 63 75 | 73 74 6f 6d 20 64 69 61 |fines cu|stom dia|
|00002c80| 6c 6f 67 20 62 6f 78 7d | 0d 43 4f 4e 53 54 20 0d |log box}|.CONST .|
|00002c90| 09 53 43 4e 57 3d 33 32 | 30 3b 20 53 43 4e 48 3d |.SCNW=32|0; SCNH=|
|00002ca0| 33 32 30 3b 0d 42 45 47 | 49 4e 0d 09 41 6c 69 67 |320;.BEG|IN..Alig|
|00002cb0| 6e 53 63 6e 28 30 2c 53 | 43 4e 57 2c 54 4c 2c 4c |nScn(0,S|CNW,TL,L|
|00002cc0| 52 29 3b 0d 09 42 65 67 | 69 6e 44 69 61 6c 6f 67 |R);..Beg|inDialog|
|00002cd0| 28 31 2c 31 2c 54 4c 2c | 31 30 30 2c 4c 52 2c 53 |(1,1,TL,|100,LR,S|
|00002ce0| 43 4e 48 29 3b 0d 09 41 | 64 64 42 75 74 74 6f 6e |CNH);..A|ddButton|
|00002cf0| 28 27 4f 4b 27 2c 31 2c | 31 2c 38 30 2c 31 39 30 |('OK',1,|1,80,190|
|00002d00| 2c 31 33 38 2c 32 31 30 | 29 3b 0d 09 41 64 64 42 |,138,210|);..AddB|
|00002d10| 75 74 74 6f 6e 28 27 43 | 61 6e 63 65 6c 27 2c 32 |utton('C|ancel',2|
|00002d20| 2c 31 2c 31 37 30 2c 31 | 39 30 2c 32 32 38 2c 32 |,1,170,1|90,228,2|
|00002d30| 31 30 29 3b 0d 09 41 64 | 64 46 69 65 6c 64 28 27 |10);..Ad|dField('|
|00002d40| 53 74 61 72 74 56 61 6c | 75 65 20 3a 27 2c 33 2c |StartVal|ue :',3,|
|00002d50| 31 2c 35 30 2c 33 31 2c | 31 34 36 2c 34 37 29 3b |1,50,31,|146,47);|
|00002d60| 0d 09 41 64 64 46 69 65 | 6c 64 28 27 30 27 2c 34 |..AddFie|ld('0',4|
|00002d70| 2c 32 2c 31 36 34 2c 33 | 31 2c 32 34 39 2c 34 38 |,2,164,3|1,249,48|
|00002d80| 29 3b 0d 09 41 64 64 46 | 69 65 6c 64 28 27 49 6e |);..AddF|ield('In|
|00002d90| 63 72 65 6d 65 6e 74 20 | 3a 27 2c 35 2c 31 2c 35 |crement |:',5,1,5|
|00002da0| 30 2c 36 33 2c 31 34 37 | 2c 38 31 29 3b 0d 09 41 |0,63,147|,81);..A|
|00002db0| 64 64 46 69 65 6c 64 28 | 27 31 27 2c 36 2c 32 2c |ddField(|'1',6,2,|
|00002dc0| 31 36 34 2c 36 33 2c 32 | 34 39 2c 38 31 29 3b 0d |164,63,2|49,81);.|
|00002dd0| 09 41 64 64 46 69 65 6c | 64 28 27 50 72 65 66 69 |.AddFiel|d('Prefi|
|00002de0| 78 20 3a 27 2c 37 2c 31 | 2c 35 30 2c 39 33 2c 31 |x :',7,1|,50,93,1|
|00002df0| 31 33 2c 31 31 31 29 3b | 0d 09 41 64 64 46 69 65 |13,111);|..AddFie|
|00002e00| 6c 64 28 27 27 2c 38 2c | 32 2c 31 36 34 2c 39 34 |ld('',8,|2,164,94|
|00002e10| 2c 32 37 35 2c 31 31 31 | 29 3b 0d 09 41 64 64 46 |,275,111|);..AddF|
|00002e20| 69 65 6c 64 28 27 53 75 | 66 66 69 78 20 3a 27 2c |ield('Su|ffix :',|
|00002e30| 39 2c 31 2c 35 30 2c 31 | 32 33 2c 31 31 33 2c 31 |9,1,50,1|23,113,1|
|00002e40| 33 39 29 3b 0d 09 41 64 | 64 46 69 65 6c 64 28 27 |39);..Ad|dField('|
|00002e50| 27 2c 31 30 2c 32 2c 31 | 36 34 2c 31 32 33 2c 32 |',10,2,1|64,123,2|
|00002e60| 37 35 2c 31 33 39 29 3b | 0d 09 41 64 64 46 69 65 |75,139);|..AddFie|
|00002e70| 6c 64 28 27 41 75 74 6f | 4e 75 6d 62 65 72 20 76 |ld('Auto|Number v|
|00002e80| 31 2e 30 31 27 2c 31 31 | 2c 31 2c 31 30 30 2c 30 |1.01',11|,1,100,0|
|00002e90| 2c 32 34 30 2c 31 38 29 | 3b 0d 09 45 6e 64 44 69 |,240,18)|;..EndDi|
|00002ea0| 61 6c 6f 67 3b 0d 45 4e | 44 3b 0d 0d 50 72 6f 63 |alog;.EN|D;..Proc|
|00002eb0| 65 64 75 72 65 20 47 65 | 74 49 6e 66 6f 3b 0d 56 |edure Ge|tInfo;.V|
|00002ec0| 41 52 0d 09 44 6f 6e 65 | 20 3a 20 42 4f 4f 4c 45 |AR..Done| : BOOLE|
|00002ed0| 41 4e 3b 0d 09 49 74 65 | 6d 20 3a 20 49 4e 54 45 |AN;..Ite|m : INTE|
|00002ee0| 47 45 52 3b 0d 42 45 47 | 49 4e 0d 09 44 6f 6e 65 |GER;.BEG|IN..Done|
|00002ef0| 3a 3d 20 46 61 6c 73 65 | 3b 0d 09 4d 61 6b 44 6c |:= False|;..MakDl|
|00002f00| 6f 67 3b 0d 09 47 65 74 | 44 69 61 6c 6f 67 28 31 |og;..Get|Dialog(1|
|00002f10| 29 3b 0d 09 52 45 50 45 | 41 54 0d 09 09 44 69 61 |);..REPE|AT...Dia|
|00002f20| 6c 6f 67 45 76 65 6e 74 | 28 49 74 65 6d 29 3b 0d |logEvent|(Item);.|
|00002f30| 09 09 49 46 20 49 74 65 | 6d 20 3d 20 31 20 54 48 |..IF Ite|m = 1 TH|
|00002f40| 45 4e 20 42 45 47 49 4e | 0d 09 09 09 56 61 6c 32 |EN BEGIN|....Val2|
|00002f50| 3a 3d 20 47 65 74 46 69 | 65 6c 64 28 34 29 3b 0d |:= GetFi|eld(4);.|
|00002f60| 09 09 09 56 61 6c 34 3a | 3d 20 47 65 74 46 69 65 |...Val4:|= GetFie|
|00002f70| 6c 64 28 36 29 3b 0d 09 | 09 09 56 61 6c 36 3a 3d |ld(6);..|..Val6:=|
|00002f80| 20 47 65 74 46 69 65 6c | 64 28 38 29 3b 0d 09 09 | GetFiel|d(8);...|
|00002f90| 09 56 61 6c 38 3a 3d 20 | 47 65 74 46 69 65 6c 64 |.Val8:= |GetField|
|00002fa0| 28 31 30 29 3b 0d 09 09 | 09 44 6f 6e 65 3a 3d 20 |(10);...|.Done:= |
|00002fb0| 54 72 75 65 3b 0d 09 09 | 09 45 4e 44 0d 09 09 45 |True;...|.END...E|
|00002fc0| 4c 53 45 20 49 46 20 49 | 74 65 6d 20 3d 20 32 20 |LSE IF I|tem = 2 |
|00002fd0| 54 48 45 4e 20 42 45 47 | 49 4e 0d 09 09 09 44 6f |THEN BEG|IN....Do|
|00002fe0| 6e 65 3a 3d 20 54 72 75 | 65 3b 0d 09 09 09 53 74 |ne:= Tru|e;....St|
|00002ff0| 6f 70 3a 3d 20 54 72 75 | 65 3b 0d 09 09 09 45 4e |op:= Tru|e;....EN|
|00003000| 44 3b 0d 09 55 4e 54 49 | 4c 20 44 6f 6e 65 3b 0d |D;..UNTI|L Done;.|
|00003010| 09 43 6c 72 44 69 61 6c | 6f 67 3b 0d 45 4e 44 3b |.ClrDial|og;.END;|
|00003020| 0d 0d 50 72 6f 63 65 64 | 75 72 65 20 4d 61 6b 65 |..Proced|ure Make|
|00003030| 54 78 74 28 49 4e 44 58 | 20 3a 20 49 4e 54 45 47 |Txt(INDX| : INTEG|
|00003040| 45 52 3b 4f 62 32 20 3a | 20 48 41 4e 44 4c 45 29 |ER;Ob2 :| HANDLE)|
|00003050| 3b 09 7b 4d 6f 64 69 66 | 69 65 73 20 74 65 78 74 |;.{Modif|ies text|
|00003060| 20 73 74 72 69 6e 67 7d | 0d 56 41 52 0d 09 4f 6c | string}|.VAR..Ol|
|00003070| 64 53 74 72 2c 4e 65 77 | 53 74 72 2c 42 61 73 65 |dStr,New|Str,Base|
|00003080| 56 61 6c 20 3a 20 53 54 | 52 49 4e 47 3b 0d 09 49 |Val : ST|RING;..I|
|00003090| 6e 74 56 61 6c 20 3a 20 | 49 4e 54 45 47 45 52 3b |ntVal : |INTEGER;|
|000030a0| 0d 09 49 6e 64 78 56 61 | 6c 20 3a 20 52 45 41 4c |..IndxVa|l : REAL|
|000030b0| 3b 0d 42 45 47 49 4e 0d | 09 4f 6c 64 53 74 72 3a |;.BEGIN.|.OldStr:|
|000030c0| 3d 47 65 74 54 65 78 74 | 28 4f 62 32 29 3b 0d 09 |=GetText|(Ob2);..|
|000030d0| 49 46 20 4f 6c 64 53 74 | 72 20 3c 3e 20 27 27 20 |IF OldSt|r <> '' |
|000030e0| 54 48 45 4e 20 42 45 47 | 49 4e 0d 09 09 49 46 20 |THEN BEG|IN...IF |
|000030f0| 49 4e 44 58 20 3d 20 31 | 20 54 48 45 4e 20 42 45 |INDX = 1| THEN BE|
|00003100| 47 49 4e 0d 09 09 09 42 | 61 73 65 56 61 6c 3a 3d |GIN....B|aseVal:=|
|00003110| 20 56 61 6c 32 3b 0d 09 | 09 09 49 6e 64 78 56 61 | Val2;..|..IndxVa|
|00003120| 6c 3a 3d 20 53 74 72 32 | 4e 75 6d 28 56 61 6c 32 |l:= Str2|Num(Val2|
|00003130| 29 3b 0d 09 09 09 45 4e | 44 0d 09 09 45 4c 53 45 |);....EN|D...ELSE|
|00003140| 20 42 45 47 49 4e 0d 09 | 09 09 49 6e 64 78 56 61 | BEGIN..|..IndxVa|
|00003150| 6c 3a 3d 20 49 6e 64 78 | 56 61 6c 20 2b 28 53 74 |l:= Indx|Val +(St|
|00003160| 72 32 4e 75 6d 28 56 61 | 6c 34 29 29 3b 0d 09 09 |r2Num(Va|l4));...|
|00003170| 09 45 4e 44 3b 0d 09 42 | 61 73 65 56 61 6c 3a 3d |.END;..B|aseVal:=|
|00003180| 4e 75 6d 32 53 74 72 28 | 30 2c 49 6e 64 78 56 61 |Num2Str(|0,IndxVa|
|00003190| 6c 29 3b 0d 09 49 46 20 | 56 61 6c 36 20 3c 3e 20 |l);..IF |Val6 <> |
|000031a0| 27 27 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |'' THEN |BEGIN...|
|000031b0| 42 61 73 65 56 61 6c 3a | 3d 20 43 6f 6e 63 61 74 |BaseVal:|= Concat|
|000031c0| 28 56 61 6c 36 2c 42 61 | 73 65 56 61 6c 29 3b 0d |(Val6,Ba|seVal);.|
|000031d0| 09 09 45 4e 44 3b 0d 09 | 49 46 20 56 61 6c 38 20 |..END;..|IF Val8 |
|000031e0| 3c 3e 20 27 27 20 54 48 | 45 4e 20 42 45 47 49 4e |<> '' TH|EN BEGIN|
|000031f0| 0d 09 09 42 61 73 65 56 | 61 6c 3a 3d 20 43 6f 6e |...BaseV|al:= Con|
|00003200| 63 61 74 28 42 61 73 65 | 56 61 6c 2c 56 61 6c 38 |cat(Base|Val,Val8|
|00003210| 29 3b 0d 09 09 45 4e 44 | 3b 0d 09 4e 65 77 53 74 |);...END|;..NewSt|
|00003220| 72 3a 3d 20 42 61 73 65 | 56 61 6c 3b 0d 09 53 65 |r:= Base|Val;..Se|
|00003230| 74 54 65 78 74 28 4f 62 | 32 2c 4e 65 77 53 74 72 |tText(Ob|2,NewStr|
|00003240| 29 3b 0d 09 45 4e 44 3b | 0d 45 4e 44 3b 0d 0d 50 |);..END;|.END;..P|
|00003250| 72 6f 63 65 64 75 72 65 | 20 50 72 6f 63 65 73 73 |rocedure| Process|
|00003260| 3b 09 7b 50 72 6f 63 65 | 73 73 65 73 20 73 65 6c |;.{Proce|sses sel|
|00003270| 65 63 74 65 64 20 74 65 | 78 74 7d 0d 56 41 52 0d |ected te|xt}.VAR.|
|00003280| 09 4f 75 74 46 6c 61 67 | 20 3a 20 42 4f 4f 4c 45 |.OutFlag| : BOOLE|
|00003290| 41 4e 3b 0d 09 49 4e 44 | 58 2c 4e 2c 43 4f 55 4e |AN;..IND|X,N,COUN|
|000032a0| 54 20 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 52 65 |T : INTE|GER;..Re|
|000032b0| 66 41 72 72 61 79 20 3a | 20 41 52 52 41 59 20 5b |fArray :| ARRAY [|
|000032c0| 31 2e 2e 32 35 30 5d 20 | 4f 46 20 48 41 4e 44 4c |1..250] |OF HANDL|
|000032d0| 45 3b 0d 09 4f 62 48 64 | 2c 4f 62 32 20 3a 20 48 |E;..ObHd|,Ob2 : H|
|000032e0| 41 4e 44 4c 45 3b 0d 09 | 58 31 2c 59 31 20 3a 20 |ANDLE;..|X1,Y1 : |
|000032f0| 52 45 41 4c 3b 0d 42 45 | 47 49 4e 0d 09 4e 3a 3d |REAL;.BE|GIN..N:=|
|00003300| 20 31 3b 0d 09 49 4e 44 | 58 3a 3d 20 31 3b 0d 09 | 1;..IND|X:= 1;..|
|00003310| 52 45 50 45 41 54 0d 09 | 09 47 65 74 50 74 28 58 |REPEAT..|.GetPt(X|
|00003320| 31 2c 59 31 29 3b 0d 09 | 09 4f 62 48 64 3a 3d 50 |1,Y1);..|.ObHd:=P|
|00003330| 69 63 6b 4f 62 6a 65 63 | 74 28 58 31 2c 59 31 29 |ickObjec|t(X1,Y1)|
|00003340| 3b 0d 09 09 49 46 20 4f | 62 48 64 20 3c 3e 20 6e |;...IF O|bHd <> n|
|00003350| 69 6c 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |il THEN |BEGIN...|
|00003360| 09 52 65 66 41 72 72 61 | 79 5b 4e 5d 3a 3d 4f 62 |.RefArra|y[N]:=Ob|
|00003370| 48 64 3b 0d 09 09 09 4e | 3a 3d 20 4e 20 2b 20 31 |Hd;....N|:= N + 1|
|00003380| 3b 0d 09 09 09 45 4e 44 | 0d 09 09 45 4c 53 45 20 |;....END|...ELSE |
|00003390| 42 45 47 49 4e 0d 09 09 | 09 4f 75 74 46 6c 61 67 |BEGIN...|.OutFlag|
|000033a0| 3a 3d 20 54 72 75 65 3b | 0d 09 09 09 45 4e 44 3b |:= True;|....END;|
|000033b0| 0d 09 55 4e 54 49 4c 20 | 4f 75 74 46 6c 61 67 3b |..UNTIL |OutFlag;|
|000033c0| 0d 09 57 48 49 4c 45 20 | 49 4e 44 58 20 3c 3d 20 |..WHILE |INDX <= |
|000033d0| 4e 20 44 4f 20 42 45 47 | 49 4e 0d 09 09 4f 62 32 |N DO BEG|IN...Ob2|
|000033e0| 3a 3d 52 65 66 41 72 72 | 61 79 5b 49 4e 44 58 5d |:=RefArr|ay[INDX]|
|000033f0| 3b 0d 09 09 4d 41 4b 45 | 54 58 54 28 49 4e 44 58 |;...MAKE|TXT(INDX|
|00003400| 2c 4f 62 32 29 3b 0d 09 | 09 49 4e 44 58 3a 3d 20 |,Ob2);..|.INDX:= |
|00003410| 49 4e 44 58 20 2b 31 3b | 0d 09 09 45 4e 44 3b 0d |INDX +1;|...END;.|
|00003420| 09 4f 62 48 64 3a 3d 6e | 69 6c 3b 0d 09 4f 62 32 |.ObHd:=n|il;..Ob2|
|00003430| 3a 3d 6e 69 6c 3b 0d 09 | 4f 75 74 46 6c 61 67 3a |:=nil;..|OutFlag:|
|00003440| 3d 46 61 6c 73 65 3b 0d | 09 46 4f 52 20 43 4f 55 |=False;.|.FOR COU|
|00003450| 4e 54 3a 3d 20 4e 20 44 | 4f 57 4e 54 4f 20 31 20 |NT:= N D|OWNTO 1 |
|00003460| 44 4f 0d 09 09 52 65 66 | 41 72 72 61 79 5b 43 4f |DO...Ref|Array[CO|
|00003470| 55 4e 54 5d 3a 3d 20 6e | 69 6c 3b 0d 45 4e 44 3b |UNT]:= n|il;.END;|
|00003480| 09 09 0d 42 45 47 49 4e | 09 09 7b 4d 41 49 4e 20 |...BEGIN|..{MAIN |
|00003490| 53 45 51 55 45 4e 43 45 | 20 53 54 41 52 54 7d 0d |SEQUENCE| START}.|
|000034a0| 09 47 65 74 49 6e 66 6f | 3b 0d 09 49 46 20 4e 4f |.GetInfo|;..IF NO|
|000034b0| 54 20 53 74 6f 70 20 54 | 48 45 4e 20 42 45 47 49 |T Stop T|HEN BEGI|
|000034c0| 4e 0d 09 09 53 79 73 42 | 65 65 70 3b 0d 09 09 50 |N...SysB|eep;...P|
|000034d0| 72 6f 63 65 73 73 3b 0d | 09 45 4e 44 0d 09 45 4c |rocess;.|.END..EL|
|000034e0| 53 45 20 42 45 47 49 4e | 0d 09 44 53 45 4c 45 43 |SE BEGIN|..DSELEC|
|000034f0| 54 41 4c 4c 3b 0d 09 53 | 74 6f 70 3a 3d 46 61 6c |TALL;..S|top:=Fal|
|00003500| 73 65 3b 0d 09 45 4e 44 | 3b 0d 45 4e 44 3b 0d 52 |se;..END|;.END;.R|
|00003510| 55 4e 28 41 75 74 6f 4e | 75 6d 29 3b 0d 00 00 00 |UN(AutoN|um);....|
|00003520| 60 00 00 00 00 00 00 00 | 00 00 3b 00 00 00 41 00 |`.......|..;...A.|
|00003530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|00003580| bf 05 79 2c a4 02 06 a5 | 0c 00 31 00 00 00 40 15 |..y,....|..1...@.|
|00003590| 64 69 73 74 72 69 62 75 | 74 65 20 61 6c 6f 6e 67 |distribu|te along|
|000035a0| 20 6c 69 6e 65 72 67 72 | 67 72 67 72 67 72 67 08 | linergr|grgrgrg.|
|000035b0| 8b 50 52 4f 43 45 44 55 | 52 45 20 44 69 73 74 72 |.PROCEDU|RE Distr|
|000035c0| 69 62 75 74 65 3b 0d 56 | 41 52 0d 09 6f 20 3a 20 |ibute;.V|AR..o : |
|000035d0| 48 61 6e 64 6c 65 3b 0d | 09 61 2c 62 2c 63 2c 64 |Handle;.|.a,b,c,d|
|000035e0| 2c 65 2c 66 2c 67 2c 68 | 2c 69 2c 6a 20 3a 20 52 |,e,f,g,h|,i,j : R|
|000035f0| 65 61 6c 3b 0d 09 74 20 | 3a 20 49 4e 54 45 47 45 |eal;..t |: INTEGE|
|00003600| 52 3b 0d 09 0d 09 7b 2a | 3d 3d 3d 3d 3d 3d 3d 3d |R;....{*|========|
|00003610| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003620| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003630| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003640| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003650| 3d 3d 2a 7d 0d 09 7b 2a | 09 50 72 6f 63 65 64 75 |==*}..{*|.Procedu|
|00003660| 72 65 20 44 69 73 74 72 | 69 62 75 74 65 20 64 69 |re Distr|ibute di|
|00003670| 73 74 72 69 62 75 74 65 | 73 20 73 65 6c 65 63 74 |stribute|s select|
|00003680| 65 64 20 6f 62 6a 65 63 | 74 73 20 6f 6e 20 74 68 |ed objec|ts on th|
|00003690| 65 20 61 63 74 69 76 65 | 20 6c 61 79 65 72 09 2a |e active| layer.*|
|000036a0| 7d 0d 09 7b 2a 09 61 6c | 6f 6e 67 20 61 20 6c 69 |}..{*.al|ong a li|
|000036b0| 6e 65 20 70 72 6f 76 69 | 64 65 64 20 62 79 20 74 |ne provi|ded by t|
|000036c0| 68 65 20 75 73 65 72 2e | 20 20 54 68 65 20 6f 62 |he user.|  The ob|
|000036d0| 6a 65 63 74 73 27 20 63 | 65 6e 74 65 72 73 20 61 |jects' c|enters a|
|000036e0| 72 65 20 65 71 75 61 6c | 6c 79 20 20 09 2a 7d 0d |re equal|ly  .*}.|
|000036f0| 09 7b 2a 20 09 70 6c 61 | 63 65 64 20 61 6c 6f 6e |.{* .pla|ced alon|
|00003700| 67 20 74 68 65 20 6c 69 | 6e 65 2e 09 09 09 09 09 |g the li|ne......|
|00003710| 09 09 09 09 09 09 09 09 | 2a 7d 0d 09 7b 2a 3d 3d |........|*}..{*==|
|00003720| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003760| 3d 3d 3d 3d 3d 3d 3d 3d | 2a 7d 0d 09 0d 42 45 47 |========|*}...BEG|
|00003770| 49 4e 0d 09 7b 2a 09 47 | 65 74 20 74 68 65 20 6e |IN..{*.G|et the n|
|00003780| 75 6d 62 65 72 20 6f 66 | 20 73 65 6c 65 63 74 65 |umber of| selecte|
|00003790| 64 20 6f 62 6a 65 63 74 | 73 20 6f 6e 20 74 68 65 |d object|s on the|
|000037a0| 20 61 63 74 69 76 65 20 | 6c 61 79 65 72 2e 09 2a | active |layer..*|
|000037b0| 7d 0d 09 6a 20 3a 3d 20 | 4e 75 6d 53 4f 62 6a 73 |}..j := |NumSObjs|
|000037c0| 28 41 63 74 4c 61 79 65 | 72 29 3b 0d 09 0d 09 7b |(ActLaye|r);....{|
|000037d0| 2a 09 49 66 20 74 68 65 | 72 65 20 69 73 20 6d 6f |*.If the|re is mo|
|000037e0| 72 65 20 74 68 61 6e 20 | 6f 6e 65 20 73 65 6c 65 |re than |one sele|
|000037f0| 63 74 65 64 20 6f 62 6a | 65 63 74 20 74 68 65 6e |cted obj|ect then|
|00003800| c9 09 2a 7d 0d 09 49 46 | 20 6a 20 3e 20 31 20 54 |..*}..IF| j > 1 T|
|00003810| 48 45 4e 20 42 45 47 49 | 4e 0d 09 0d 09 09 09 7b |HEN BEGI|N......{|
|00003820| 2a 09 4c 65 74 20 74 68 | 65 20 63 6f 6d 70 69 6c |*.Let th|e compil|
|00003830| 65 72 20 6b 6e 6f 77 20 | 74 68 61 74 20 61 6e 67 |er know |that ang|
|00003840| 6c 65 20 76 61 72 69 61 | 62 6c 65 73 20 77 69 6c |le varia|bles wil|
|00003850| 6c 20 62 65 20 75 73 65 | 64 2e 09 2a 7d 0d 09 09 |l be use|d..*}...|
|00003860| 09 41 6e 67 6c 65 56 61 | 72 3b 0d 09 09 09 0d 09 |.AngleVa|r;......|
|00003870| 09 09 7b 2a 09 44 69 73 | 70 6c 61 79 20 6d 65 73 |..{*.Dis|play mes|
|00003880| 73 61 67 65 20 69 6e 20 | 6d 65 73 73 61 67 65 20 |sage in |message |
|00003890| 70 61 6c 65 74 74 65 2e | 09 2a 7d 0d 09 09 09 4d |palette.|.*}....M|
|000038a0| 65 73 73 61 67 65 28 27 | 44 72 61 77 20 64 69 73 |essage('|Draw dis|
|000038b0| 74 72 69 62 75 74 69 6f | 6e 20 6c 69 6e 65 c9 27 |tributio|n line.'|
|000038c0| 29 3b 0d 09 09 09 0d 09 | 09 09 7b 2a 09 48 61 76 |);......|..{*.Hav|
|000038d0| 65 20 74 68 65 20 75 73 | 65 72 20 64 72 61 77 20 |e the us|er draw |
|000038e0| 74 68 65 20 64 69 73 74 | 72 69 62 75 74 69 6f 6e |the dist|ribution|
|000038f0| 20 6c 69 6e 65 20 61 6e | 64 20 67 65 74 20 74 68 | line an|d get th|
|00003900| 65 20 65 6e 64 70 6f 69 | 6e 74 73 2e 09 2a 7d 0d |e endpoi|nts..*}.|
|00003910| 09 09 09 47 65 74 4c 69 | 6e 65 28 62 2c 63 2c 65 |...GetLi|ne(b,c,e|
|00003920| 2c 66 29 3b 0d 09 09 09 | 0d 09 09 09 7b 2a 09 43 |,f);....|....{*.C|
|00003930| 6c 6f 73 65 20 74 68 65 | 20 6d 65 73 73 61 67 65 |lose the| message|
|00003940| 20 70 61 6c 65 74 74 65 | 2e 09 2a 7d 0d 09 09 09 | palette|..*}....|
|00003950| 43 6c 72 4d 65 73 73 61 | 67 65 3b 0d 09 09 09 0d |ClrMessa|ge;.....|
|00003960| 09 09 09 7b 2a 09 47 65 | 74 20 74 68 65 20 61 6e |...{*.Ge|t the an|
|00003970| 67 6c 65 20 6f 66 20 74 | 68 65 20 75 73 65 72 27 |gle of t|he user'|
|00003980| 73 20 6c 69 6e 65 2e 09 | 2a 7d 0d 09 09 09 49 46 |s line..|*}....IF|
|00003990| 20 62 20 3d 20 65 20 54 | 48 45 4e 20 61 20 3a 3d | b = e T|HEN a :=|
|000039a0| 20 39 30 0d 09 09 09 45 | 4c 53 45 20 61 20 3a 3d | 90....E|LSE a :=|
|000039b0| 20 52 61 64 32 44 65 67 | 28 41 72 63 54 61 6e 28 | Rad2Deg|(ArcTan(|
|000039c0| 28 66 20 2d 20 63 29 2f | 28 65 20 2d 20 62 29 29 |(f - c)/|(e - b))|
|000039d0| 29 3b 0d 09 09 09 0d 09 | 09 09 7b 2a 09 44 65 74 |);......|..{*.Det|
|000039e0| 65 72 6d 69 6e 65 20 74 | 68 65 20 64 69 73 74 61 |ermine t|he dista|
|000039f0| 6e 63 65 20 62 65 74 77 | 65 65 6e 20 65 61 63 68 |nce betw|een each|
|00003a00| 20 6f 62 6a 65 63 74 20 | 61 6c 6f 6e 67 20 74 68 | object |along th|
|00003a10| 65 20 6c 69 6e 65 2e 09 | 2a 7d 0d 09 09 09 64 20 |e line..|*}....d |
|00003a20| 3a 3d 20 44 69 73 74 61 | 6e 63 65 28 62 2c 63 2c |:= Dista|nce(b,c,|
|00003a30| 65 2c 66 29 2f 28 6a 20 | 2d 20 31 29 3b 0d 09 09 |e,f)/(j |- 1);...|
|00003a40| 09 0d 09 09 09 7b 2a 09 | 44 65 74 65 72 6d 69 6e |.....{*.|Determin|
|00003a50| 65 20 77 68 69 63 68 20 | 64 69 72 65 63 74 69 6f |e which |directio|
|00003a60| 6e 20 74 6f 20 64 72 61 | 77 20 74 68 65 20 6f 62 |n to dra|w the ob|
|00003a70| 6a 65 63 74 73 2e 09 2a | 7d 0d 09 09 09 49 46 20 |jects..*|}....IF |
|00003a80| 28 28 61 20 3d 20 39 30 | 29 20 26 20 28 66 20 3c |((a = 90|) & (f <|
|00003a90| 20 63 29 29 20 4f 52 20 | 28 65 20 3c 20 62 29 20 | c)) OR |(e < b) |
|00003aa0| 54 48 45 4e 20 64 20 3a | 3d 20 2d 64 3b 0d 09 09 |THEN d :|= -d;...|
|00003ab0| 09 0d 09 09 09 7b 2a 09 | 47 65 74 20 61 20 68 61 |.....{*.|Get a ha|
|00003ac0| 6e 64 6c 65 20 74 6f 20 | 74 68 65 20 66 69 72 73 |ndle to |the firs|
|00003ad0| 74 20 73 65 6c 65 63 74 | 65 64 20 6f 62 6a 65 63 |t select|ed objec|
|00003ae0| 74 20 6f 6e 20 74 68 65 | 20 61 63 74 69 76 65 20 |t on the| active |
|00003af0| 6c 61 79 65 72 2e 09 2a | 7d 0d 09 09 09 6f 20 3a |layer..*|}....o :|
|00003b00| 3d 20 46 53 41 63 74 4c | 61 79 65 72 3b 0d 09 09 |= FSActL|ayer;...|
|00003b10| 09 0d 09 09 09 7b 2a 09 | 4d 6f 76 65 20 74 6f 20 |.....{*.|Move to |
|00003b20| 74 68 65 20 66 69 72 73 | 74 20 65 6e 64 70 6f 69 |the firs|t endpoi|
|00003b30| 6e 74 20 6f 66 20 74 68 | 65 20 75 73 65 72 27 73 |nt of th|e user's|
|00003b40| 20 6c 69 6e 65 2e 09 2a | 7d 0d 09 09 09 4d 6f 76 | line..*|}....Mov|
|00003b50| 65 54 6f 28 62 2c 63 29 | 3b 0d 09 09 09 0d 09 09 |eTo(b,c)|;.......|
|00003b60| 09 7b 2a 09 46 6f 72 20 | 65 76 65 72 79 20 73 65 |.{*.For |every se|
|00003b70| 6c 65 63 74 65 64 20 6f | 62 6a 65 63 74 20 6f 6e |lected o|bject on|
|00003b80| 20 74 68 65 20 61 63 74 | 69 76 65 20 6c 61 79 65 | the act|ive laye|
|00003b90| 72 20 64 6f c9 09 2a 7d | 0d 09 09 09 57 48 49 4c |r do..*}|....WHIL|
|00003ba0| 45 20 6f 20 3c 3e 20 4e | 49 4c 20 44 4f 20 42 45 |E o <> N|IL DO BE|
|00003bb0| 47 49 4e 0d 09 09 09 0d | 09 09 09 09 09 7b 2a 09 |GIN.....|.....{*.|
|00003bc0| 46 69 6e 64 20 6f 75 74 | 20 74 68 65 20 74 79 70 |Find out| the typ|
|00003bd0| 65 20 6f 66 20 6f 62 6a | 65 63 74 2e 09 2a 7d 0d |e of obj|ect..*}.|
|00003be0| 09 09 09 09 09 74 20 3a | 3d 20 47 65 74 54 79 70 |.....t :|= GetTyp|
|00003bf0| 65 28 6f 29 3b 0d 09 09 | 09 09 09 0d 09 09 09 09 |e(o);...|........|
|00003c00| 09 7b 2a 20 09 46 69 6e | 64 20 74 68 65 20 63 65 |.{* .Fin|d the ce|
|00003c10| 6e 74 65 72 20 6f 66 20 | 74 68 65 20 6f 62 6a 65 |nter of |the obje|
|00003c20| 63 74 2e 09 2a 7d 0d 09 | 09 09 09 09 49 46 20 74 |ct..*}..|....IF t|
|00003c30| 20 3c 20 32 34 20 54 48 | 45 4e 20 48 43 65 6e 74 | < 24 TH|EN HCent|
|00003c40| 65 72 28 6f 2c 67 2c 68 | 29 0d 09 09 09 09 09 45 |er(o,g,h|)......E|
|00003c50| 4c 53 45 20 47 65 74 33 | 44 43 6e 74 72 28 6f 2c |LSE Get3|DCntr(o,|
|00003c60| 67 2c 68 2c 69 29 3b 0d | 09 09 09 09 09 0d 09 09 |g,h,i);.|........|
|00003c70| 09 09 09 7b 2a 09 4d 6f | 76 65 20 74 68 65 20 6f |...{*.Mo|ve the o|
|00003c80| 62 6a 65 63 74 20 74 6f | 20 74 68 65 20 70 72 6f |bject to| the pro|
|00003c90| 70 65 72 20 6c 6f 63 61 | 74 69 6f 6e 09 2a 7d 0d |per loca|tion.*}.|
|00003ca0| 09 09 09 09 09 48 4d 6f | 76 65 28 6f 2c 62 20 2d |.....HMo|ve(o,b -|
|00003cb0| 20 67 2c 63 20 2d 20 68 | 29 3b 0d 09 09 09 09 09 | g,c - h|);......|
|00003cc0| 0d 09 09 09 09 09 7b 2a | 09 47 65 74 20 61 20 68 |......{*|.Get a h|
|00003cd0| 61 6e 64 6c 65 20 74 6f | 20 74 68 65 20 6e 65 78 |andle to| the nex|
|00003ce0| 74 20 73 65 6c 65 63 74 | 65 64 20 6f 62 6a 65 63 |t select|ed objec|
|00003cf0| 74 2e 09 2a 7d 0d 09 09 | 09 09 09 6f 20 3a 3d 20 |t..*}...|...o := |
|00003d00| 4e 65 78 74 53 4f 62 6a | 28 6f 29 3b 0d 09 09 09 |NextSObj|(o);....|
|00003d10| 09 09 0d 09 09 09 09 09 | 7b 2a 09 4d 6f 76 65 20 |........|{*.Move |
|00003d20| 74 6f 20 74 68 65 20 6e | 65 78 74 20 70 6c 61 63 |to the n|ext plac|
|00003d30| 65 6d 65 6e 74 20 6c 6f | 63 61 74 69 6f 6e 20 6f |ement lo|cation o|
|00003d40| 66 20 61 6e 20 6f 62 6a | 65 63 74 09 2a 7d 0d 09 |f an obj|ect.*}..|
|00003d50| 09 09 09 09 4d 6f 76 65 | 54 6f 28 64 2c 23 61 29 |....Move|To(d,#a)|
|00003d60| 3b 0d 09 09 09 09 09 0d | 09 09 09 09 09 7b 2a 09 |;.......|.....{*.|
|00003d70| 47 65 74 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |Get the |current |
|00003d80| 6c 6f 63 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |location| of the |
|00003d90| 64 72 61 77 69 6e 67 20 | 70 65 6e 20 09 2a 7d 0d |drawing |pen .*}.|
|00003da0| 09 09 09 09 09 50 65 6e | 4c 6f 63 28 62 2c 63 29 |.....Pen|Loc(b,c)|
|00003db0| 3b 0d 09 09 09 09 45 4e | 44 3b 0d 09 09 09 09 0d |;.....EN|D;......|
|00003dc0| 09 09 09 7b 2a 09 52 65 | 64 72 61 77 20 74 68 65 |...{*.Re|draw the|
|00003dd0| 20 73 63 72 65 65 6e 2e | 09 2a 7d 0d 09 09 09 52 | screen.|.*}....R|
|00003de0| 65 64 72 61 77 3b 0d 09 | 09 45 4e 44 0d 09 45 4c |edraw;..|.END..EL|
|00003df0| 53 45 20 41 6c 72 74 44 | 69 61 6c 6f 67 28 27 49 |SE AlrtD|ialog('I|
|00003e00| 6e 76 61 6c 69 64 20 6e | 75 6d 62 65 72 20 6f 66 |nvalid n|umber of|
|00003e10| 20 6f 62 6a 65 63 74 73 | 20 73 65 6c 65 63 74 65 | objects| selecte|
|00003e20| 64 2e 27 29 3b 0d 45 4e | 44 3b 0d 52 55 4e 28 44 |d.');.EN|D;.RUN(D|
|00003e30| 69 73 74 72 69 62 75 74 | 65 29 3b 0d 00 00 00 60 |istribut|e);....`|
|00003e40| 00 00 00 00 00 00 00 00 | 00 3b 00 00 00 41 00 00 |........|.;...A..|
|00003e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0a 28 |........|.......(|
|00003ea0| 05 79 2c a4 02 06 a5 14 | 00 31 00 00 00 40 0b 64 |.y,.....|.1...@.d|
|00003eb0| 69 76 69 64 65 20 6c 69 | 6e 65 72 67 72 67 72 67 |ivide li|nergrgrg|
|00003ec0| 72 67 72 67 72 67 72 67 | 72 67 72 67 72 67 09 f4 |rgrgrgrg|rgrgrg..|
|00003ed0| 50 52 4f 43 45 44 55 52 | 45 20 4c 6e 4d 61 63 72 |PROCEDUR|E LnMacr|
|00003ee0| 6f 56 41 52 3b 0d 4c 41 | 42 45 4c 20 31 3b 0d 43 |oVAR;.LA|BEL 1;.C|
|00003ef0| 4f 4e 53 54 0d 09 4c 69 | 6e 65 54 79 70 65 20 3d |ONST..Li|neType =|
|00003f00| 20 32 3b 0d 56 41 52 0d | 09 61 6e 67 56 61 6c 75 | 2;.VAR.|.angValu|
|00003f10| 65 20 3a 20 52 45 41 4c | 3b 20 09 7b 53 74 6f 72 |e : REAL|; .{Stor|
|00003f20| 65 73 20 74 68 65 20 6c | 69 6e 65 73 20 61 6e 67 |es the l|ines ang|
|00003f30| 6c 65 7d 0d 09 6d 61 72 | 6b 41 6e 67 09 20 3a 20 |le}..mar|kAng. : |
|00003f40| 52 45 41 4c 3b 09 7b 53 | 74 6f 72 65 73 20 74 68 |REAL;.{S|tores th|
|00003f50| 65 20 61 6e 67 6c 65 20 | 6d 6f 76 65 6d 65 6e 74 |e angle |movement|
|00003f60| 20 66 6f 72 20 74 68 65 | 20 6d 61 72 6b 7d 0d 09 | for the| mark}..|
|00003f70| 6c 65 6e 56 61 6c 75 65 | 20 3a 20 52 45 41 4c 3b |lenValue| : REAL;|
|00003f80| 20 09 7b 53 74 6f 72 65 | 73 20 74 68 65 20 6c 65 | .{Store|s the le|
|00003f90| 6e 67 74 68 20 6f 66 20 | 74 68 65 20 6c 69 6e 65 |ngth of |the line|
|00003fa0| 7d 0d 09 78 43 65 6e 09 | 20 3a 20 52 45 41 4c 3b |}..xCen.| : REAL;|
|00003fb0| 20 09 7b 53 74 6f 72 65 | 73 20 74 68 65 20 78 2d | .{Store|s the x-|
|00003fc0| 63 65 6e 74 65 72 20 6f | 66 20 74 68 65 20 6c 69 |center o|f the li|
|00003fd0| 6e 65 7d 0d 09 79 43 65 | 6e 09 20 3a 20 52 45 41 |ne}..yCe|n. : REA|
|00003fe0| 4c 3b 20 09 7b 53 74 6f | 72 65 73 20 74 68 65 20 |L; .{Sto|res the |
|00003ff0| 79 2d 63 65 6e 74 65 72 | 20 6f 66 20 74 68 65 20 |y-center| of the |
|00004000| 6c 69 6e 65 7d 0d 09 73 | 65 67 4e 75 6d 09 20 3a |line}..s|egNum. :|
|00004010| 20 49 4e 54 45 47 45 52 | 3b 09 7b 53 74 6f 72 65 | INTEGER|;.{Store|
|00004020| 73 20 74 68 65 20 64 65 | 73 69 72 65 64 20 6e 75 |s the de|sired nu|
|00004030| 6d 62 65 72 20 6f 66 20 | 73 65 67 6d 65 6e 74 73 |mber of |segments|
|00004040| 7d 0d 09 6d 61 72 6b 4c | 65 6e 09 20 3a 20 52 45 |}..markL|en. : RE|
|00004050| 41 4c 3b 09 7b 53 74 6f | 72 65 73 20 74 68 65 20 |AL;.{Sto|res the |
|00004060| 6c 65 6e 67 74 68 20 6f | 66 20 74 68 65 20 6d 61 |length o|f the ma|
|00004070| 72 6b 7d 0d 09 73 65 67 | 4c 65 6e 09 20 3a 20 52 |rk}..seg|Len. : R|
|00004080| 45 41 4c 3b 09 7b 53 74 | 6f 72 65 73 20 74 68 65 |EAL;.{St|ores the|
|00004090| 20 6c 65 6e 67 74 68 20 | 6f 66 20 74 68 65 20 73 | length |of the s|
|000040a0| 65 67 6d 65 6e 74 7d 0d | 09 78 09 09 20 3a 20 52 |egment}.|.x.. : R|
|000040b0| 45 41 4c 3b 20 09 7b 53 | 74 6f 72 65 73 20 74 68 |EAL; .{S|tores th|
|000040c0| 65 20 78 2d 63 6f 6f 72 | 64 69 6e 61 74 65 7d 0d |e x-coor|dinate}.|
|000040d0| 09 79 09 09 20 3a 20 52 | 45 41 4c 3b 20 09 7b 53 |.y.. : R|EAL; .{S|
|000040e0| 74 6f 72 65 73 20 74 68 | 65 20 79 2d 63 6f 6f 72 |tores th|e y-coor|
|000040f0| 64 69 6e 61 74 65 7d 0d | 09 63 6f 75 6e 74 09 20 |dinate}.|.count. |
|00004100| 3a 20 49 4e 54 45 47 45 | 52 3b 20 7b 53 74 6f 72 |: INTEGE|R; {Stor|
|00004110| 65 73 20 61 20 63 6f 75 | 6e 74 65 72 20 76 61 6c |es a cou|nter val|
|00004120| 75 65 7d 0d 09 68 09 09 | 20 3a 20 48 41 4e 44 4c |ue}..h..| : HANDL|
|00004130| 45 3b 09 7b 53 74 6f 72 | 65 73 20 68 61 6e 64 6c |E;.{Stor|es handl|
|00004140| 65 20 74 6f 20 73 65 6c | 65 63 74 65 64 20 6c 69 |e to sel|ected li|
|00004150| 6e 65 7d 0d 09 0d 09 46 | 55 4e 43 54 49 4f 4e 20 |ne}....F|UNCTION |
|00004160| 4c 41 6e 67 6c 65 20 3a | 20 52 45 41 4c 3b 0d 09 |LAngle :| REAL;..|
|00004170| 56 41 52 0d 09 09 78 31 | 2c 79 31 2c 78 32 2c 79 |VAR...x1|,y1,x2,y|
|00004180| 32 20 3a 20 52 45 41 4c | 3b 0d 09 09 73 6c 6f 70 |2 : REAL|;...slop|
|00004190| 65 2c 61 6e 67 6c 65 20 | 3a 20 52 45 41 4c 3b 0d |e,angle |: REAL;.|
|000041a0| 09 42 45 47 49 4e 0d 09 | 09 4c 41 6e 67 6c 65 20 |.BEGIN..|.LAngle |
|000041b0| 3a 3d 20 30 3b 0d 09 09 | 47 65 74 53 65 67 50 74 |:= 0;...|GetSegPt|
|000041c0| 31 28 68 2c 78 31 2c 79 | 31 29 3b 0d 09 09 47 65 |1(h,x1,y|1);...Ge|
|000041d0| 74 53 65 67 50 74 32 28 | 68 2c 78 32 2c 79 32 29 |tSegPt2(|h,x2,y2)|
|000041e0| 3b 0d 09 09 49 46 20 78 | 32 20 3d 20 78 31 20 54 |;...IF x|2 = x1 T|
|000041f0| 48 45 4e 20 42 45 47 49 | 4e 0d 09 09 09 09 49 46 |HEN BEGI|N.....IF|
|00004200| 20 79 32 20 3e 20 79 31 | 20 54 48 45 4e 20 61 6e | y2 > y1| THEN an|
|00004210| 67 6c 65 20 3a 3d 20 70 | 69 2f 32 0d 09 09 09 09 |gle := p|i/2.....|
|00004220| 45 4c 53 45 20 61 6e 67 | 6c 65 20 3a 3d 20 33 2a |ELSE ang|le := 3*|
|00004230| 70 69 2f 32 3b 0d 09 09 | 09 45 4e 44 0d 09 09 45 |pi/2;...|.END...E|
|00004240| 4c 53 45 20 42 45 47 49 | 4e 0d 09 09 09 09 73 6c |LSE BEGI|N.....sl|
|00004250| 6f 70 65 20 3a 3d 20 28 | 79 32 20 2d 20 79 31 29 |ope := (|y2 - y1)|
|00004260| 2f 28 78 32 20 2d 20 78 | 31 29 3b 0d 09 09 09 09 |/(x2 - x|1);.....|
|00004270| 49 46 20 28 28 79 32 20 | 3c 20 79 31 29 20 26 20 |IF ((y2 |< y1) & |
|00004280| 28 78 32 20 3c 20 78 31 | 29 29 20 7c 20 28 28 79 |(x2 < x1|)) | ((y|
|00004290| 32 20 3e 20 79 31 29 20 | 26 20 28 78 32 20 3c 20 |2 > y1) |& (x2 < |
|000042a0| 78 31 29 29 20 54 48 45 | 4e 20 61 6e 67 6c 65 20 |x1)) THE|N angle |
|000042b0| 3a 3d 20 41 72 63 54 61 | 6e 28 73 6c 6f 70 65 29 |:= ArcTa|n(slope)|
|000042c0| 20 2b 20 70 69 3b 0d 09 | 09 09 09 49 46 20 28 79 | + pi;..|...IF (y|
|000042d0| 32 20 3e 20 79 31 29 20 | 26 20 28 78 32 20 3e 20 |2 > y1) |& (x2 > |
|000042e0| 78 31 29 20 54 48 45 4e | 20 61 6e 67 6c 65 20 3a |x1) THEN| angle :|
|000042f0| 3d 20 41 72 63 54 61 6e | 28 73 6c 6f 70 65 29 3b |= ArcTan|(slope);|
|00004300| 0d 09 09 09 09 49 46 20 | 28 79 32 20 3c 20 79 31 |.....IF |(y2 < y1|
|00004310| 29 20 26 20 28 78 32 20 | 3e 20 78 31 29 20 54 48 |) & (x2 |> x1) TH|
|00004320| 45 4e 20 61 6e 67 6c 65 | 20 3a 3d 20 41 72 63 54 |EN angle| := ArcT|
|00004330| 61 6e 28 73 6c 6f 70 65 | 29 20 2b 20 32 20 2a 20 |an(slope|) + 2 * |
|00004340| 70 69 3b 0d 09 09 09 09 | 49 46 20 28 79 32 20 3d |pi;.....|IF (y2 =|
|00004350| 20 79 31 29 20 26 20 28 | 78 32 20 3e 20 78 31 29 | y1) & (|x2 > x1)|
|00004360| 20 54 48 45 4e 20 61 6e | 67 6c 65 20 3a 3d 20 30 | THEN an|gle := 0|
|00004370| 3b 0d 09 09 09 09 49 46 | 20 28 79 32 20 3d 20 79 |;.....IF| (y2 = y|
|00004380| 31 29 20 26 20 28 78 32 | 20 3c 20 78 31 29 20 54 |1) & (x2| < x1) T|
|00004390| 48 45 4e 20 61 6e 67 6c | 65 20 3a 3d 20 70 69 3b |HEN angl|e := pi;|
|000043a0| 0d 09 09 09 45 4e 44 3b | 0d 09 09 4c 41 6e 67 6c |....END;|...LAngl|
|000043b0| 65 20 3a 3d 20 52 61 64 | 32 44 65 67 28 61 6e 67 |e := Rad|2Deg(ang|
|000043c0| 6c 65 29 3b 0d 09 45 4e | 44 3b 0d 09 0d 09 46 55 |le);..EN|D;....FU|
|000043d0| 4e 43 54 49 4f 4e 20 4c | 4c 65 6e 67 74 68 20 3a |NCTION L|Length :|
|000043e0| 20 52 45 41 4c 3b 0d 09 | 56 41 52 0d 09 09 78 31 | REAL;..|VAR...x1|
|000043f0| 2c 79 31 2c 78 32 2c 79 | 32 20 3a 20 52 45 41 4c |,y1,x2,y|2 : REAL|
|00004400| 3b 0d 09 42 45 47 49 4e | 0d 09 09 4c 4c 65 6e 67 |;..BEGIN|...LLeng|
|00004410| 74 68 20 3a 3d 20 30 3b | 0d 09 09 47 65 74 53 65 |th := 0;|...GetSe|
|00004420| 67 50 74 31 28 68 2c 78 | 31 2c 79 31 29 3b 0d 09 |gPt1(h,x|1,y1);..|
|00004430| 09 47 65 74 53 65 67 50 | 74 32 28 68 2c 78 32 2c |.GetSegP|t2(h,x2,|
|00004440| 79 32 29 3b 0d 09 09 4c | 4c 65 6e 67 74 68 20 3a |y2);...L|Length :|
|00004450| 3d 20 53 71 72 74 28 53 | 71 72 28 78 32 20 2d 20 |= Sqrt(S|qr(x2 - |
|00004460| 78 31 29 20 2b 20 53 71 | 72 28 79 32 20 2d 20 79 |x1) + Sq|r(y2 - y|
|00004470| 31 29 29 3b 0d 09 45 4e | 44 3b 0d 09 0d 09 46 55 |1));..EN|D;....FU|
|00004480| 4e 43 54 49 4f 4e 20 4c | 58 43 65 6e 74 65 72 20 |NCTION L|XCenter |
|00004490| 3a 20 52 45 41 4c 3b 0d | 09 56 41 52 0d 09 09 78 |: REAL;.|.VAR...x|
|000044a0| 31 2c 79 31 2c 78 32 2c | 79 32 20 3a 20 52 45 41 |1,y1,x2,|y2 : REA|
|000044b0| 4c 3b 0d 09 42 45 47 49 | 4e 0d 09 09 4c 58 43 65 |L;..BEGI|N...LXCe|
|000044c0| 6e 74 65 72 20 3a 3d 20 | 30 3b 0d 09 09 47 65 74 |nter := |0;...Get|
|000044d0| 53 65 67 50 74 31 28 68 | 2c 78 31 2c 79 31 29 3b |SegPt1(h|,x1,y1);|
|000044e0| 0d 09 09 47 65 74 53 65 | 67 50 74 32 28 68 2c 78 |...GetSe|gPt2(h,x|
|000044f0| 32 2c 79 32 29 3b 0d 09 | 09 4c 58 43 65 6e 74 65 |2,y2);..|.LXCente|
|00004500| 72 20 3a 3d 20 28 78 31 | 20 2b 20 78 32 29 2f 32 |r := (x1| + x2)/2|
|00004510| 3b 0d 09 45 4e 44 3b 0d | 09 0d 09 46 55 4e 43 54 |;..END;.|...FUNCT|
|00004520| 49 4f 4e 20 4c 59 43 65 | 6e 74 65 72 20 3a 20 52 |ION LYCe|nter : R|
|00004530| 45 41 4c 3b 0d 09 56 41 | 52 0d 09 09 78 31 2c 79 |EAL;..VA|R...x1,y|
|00004540| 31 2c 78 32 2c 79 32 20 | 3a 20 52 45 41 4c 3b 0d |1,x2,y2 |: REAL;.|
|00004550| 09 42 45 47 49 4e 0d 09 | 09 4c 59 43 65 6e 74 65 |.BEGIN..|.LYCente|
|00004560| 72 20 3a 3d 20 30 3b 0d | 09 09 47 65 74 53 65 67 |r := 0;.|..GetSeg|
|00004570| 50 74 31 28 68 2c 78 31 | 2c 79 31 29 3b 0d 09 09 |Pt1(h,x1|,y1);...|
|00004580| 47 65 74 53 65 67 50 74 | 32 28 68 2c 78 32 2c 79 |GetSegPt|2(h,x2,y|
|00004590| 32 29 3b 0d 09 09 4c 59 | 43 65 6e 74 65 72 20 3a |2);...LY|Center :|
|000045a0| 3d 20 28 79 31 20 2b 20 | 79 32 29 2f 32 3b 0d 09 |= (y1 + |y2)/2;..|
|000045b0| 45 4e 44 3b 0d 09 0d 42 | 45 47 49 4e 0d 09 41 6e |END;...B|EGIN..An|
|000045c0| 67 6c 65 56 61 72 3b 0d | 09 49 46 20 4e 75 6d 73 |gleVar;.|.IF Nums|
|000045d0| 4f 62 6a 73 28 41 63 74 | 4c 61 79 65 72 29 20 3e |Objs(Act|Layer) >|
|000045e0| 20 31 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 | 1 THEN |BEGIN...|
|000045f0| 09 41 6c 72 74 44 69 61 | 6c 6f 67 28 27 54 6f 6f |.AlrtDia|log('Too|
|00004600| 20 6d 61 6e 79 20 6f 62 | 6a 65 63 74 73 20 73 65 | many ob|jects se|
|00004610| 6c 65 63 74 65 64 21 27 | 29 3b 0d 09 09 09 47 4f |lected!'|);....GO|
|00004620| 54 4f 20 31 3b 0d 09 09 | 45 4e 44 3b 0d 09 68 20 |TO 1;...|END;..h |
|00004630| 3a 3d 20 4c 53 41 63 74 | 4c 61 79 65 72 3b 0d 09 |:= LSAct|Layer;..|
|00004640| 61 6e 67 56 61 6c 75 65 | 20 3a 3d 20 4c 41 6e 67 |angValue| := LAng|
|00004650| 6c 65 3b 0d 09 49 46 20 | 28 61 6e 67 56 61 6c 75 |le;..IF |(angValu|
|00004660| 65 20 3c 20 39 30 29 20 | 4f 52 20 28 61 6e 67 56 |e < 90) |OR (angV|
|00004670| 61 6c 75 65 20 3e 3d 20 | 32 37 30 29 20 54 48 45 |alue >= |270) THE|
|00004680| 4e 20 6d 61 72 6b 41 6e | 67 20 3a 3d 20 61 6e 67 |N markAn|g := ang|
|00004690| 56 61 6c 75 65 20 2b 20 | 39 30 3b 0d 09 49 46 20 |Value + |90;..IF |
|000046a0| 28 61 6e 67 56 61 6c 75 | 65 20 3c 20 32 37 30 29 |(angValu|e < 270)|
|000046b0| 20 41 4e 44 20 28 61 6e | 67 56 61 6c 75 65 20 3e | AND (an|gValue >|
|000046c0| 3d 20 39 30 29 20 54 48 | 45 4e 20 6d 61 72 6b 41 |= 90) TH|EN markA|
|000046d0| 6e 67 20 3a 3d 20 61 6e | 67 56 61 6c 75 65 20 2d |ng := an|gValue -|
|000046e0| 20 39 30 3b 0d 09 6c 65 | 6e 56 61 6c 75 65 20 3a | 90;..le|nValue :|
|000046f0| 3d 20 4c 4c 65 6e 67 74 | 68 3b 0d 09 78 43 65 6e |= LLengt|h;..xCen|
|00004700| 20 3a 3d 20 4c 58 43 65 | 6e 74 65 72 3b 0d 09 79 | := LXCe|nter;..y|
|00004710| 43 65 6e 20 3a 3d 20 4c | 59 43 65 6e 74 65 72 3b |Cen := L|YCenter;|
|00004720| 0d 09 73 65 67 4e 75 6d | 20 3a 3d 20 49 6e 74 44 |..segNum| := IntD|
|00004730| 69 61 6c 6f 67 28 27 45 | 6e 74 65 72 20 74 68 65 |ialog('E|nter the|
|00004740| 20 6e 75 6d 62 65 72 20 | 6f 66 20 73 65 67 6d 65 | number |of segme|
|00004750| 6e 74 73 20 77 69 74 68 | 69 6e 20 74 68 65 20 6c |nts with|in the l|
|00004760| 69 6e 65 3a 27 2c 27 30 | 27 29 3b 0d 09 49 46 20 |ine:','0|');..IF |
|00004770| 73 65 67 4e 75 6d 20 3d | 20 30 20 54 48 45 4e 20 |segNum =| 0 THEN |
|00004780| 47 4f 54 4f 20 31 3b 0d | 09 6d 61 72 6b 4c 65 6e |GOTO 1;.|.markLen|
|00004790| 20 3a 3d 20 6c 65 6e 56 | 61 6c 75 65 2f 31 30 3b | := lenV|alue/10;|
|000047a0| 0d 09 73 65 67 4c 65 6e | 20 3a 3d 20 6c 65 6e 56 |..segLen| := lenV|
|000047b0| 61 6c 75 65 2f 73 65 67 | 4e 75 6d 3b 0d 09 4d 4f |alue/seg|Num;..MO|
|000047c0| 56 45 54 4f 28 78 43 65 | 6e 2c 79 43 65 6e 29 3b |VETO(xCe|n,yCen);|
|000047d0| 0d 09 4d 4f 56 45 54 4f | 28 6c 65 6e 56 61 6c 75 |..MOVETO|(lenValu|
|000047e0| 65 2f 32 2c 23 61 6e 67 | 56 61 6c 75 65 2d 31 38 |e/2,#ang|Value-18|
|000047f0| 30 29 3b 0d 09 4d 4f 56 | 45 54 4f 28 6d 61 72 6b |0);..MOV|ETO(mark|
|00004800| 4c 65 6e 2f 32 2c 23 6d | 61 72 6b 41 6e 67 2d 31 |Len/2,#m|arkAng-1|
|00004810| 38 30 29 3b 0d 09 50 45 | 4e 4c 4f 43 28 78 2c 79 |80);..PE|NLOC(x,y|
|00004820| 29 3b 0d 09 46 4f 52 20 | 63 6f 75 6e 74 20 3a 3d |);..FOR |count :=|
|00004830| 20 31 20 54 4f 20 73 65 | 67 4e 75 6d 2d 31 20 44 | 1 TO se|gNum-1 D|
|00004840| 4f 20 0d 09 09 42 45 47 | 49 4e 0d 09 09 09 4d 4f |O ...BEG|IN....MO|
|00004850| 56 45 54 4f 28 73 65 67 | 4c 65 6e 2c 23 61 6e 67 |VETO(seg|Len,#ang|
|00004860| 56 61 6c 75 65 29 3b 0d | 09 09 09 50 45 4e 4c 4f |Value);.|...PENLO|
|00004870| 43 28 78 2c 79 29 3b 0d | 09 09 09 4c 49 4e 45 54 |C(x,y);.|...LINET|
|00004880| 4f 28 6d 61 72 6b 4c 65 | 6e 2c 23 6d 61 72 6b 41 |O(markLe|n,#markA|
|00004890| 6e 67 29 3b 0d 09 09 09 | 4d 4f 56 45 54 4f 28 78 |ng);....|MOVETO(x|
|000048a0| 2c 79 29 3b 0d 09 09 45 | 4e 44 3b 0d 31 3a 20 45 |,y);...E|ND;.1: E|
|000048b0| 4e 44 3b 0d 52 55 4e 28 | 4c 6e 4d 61 63 72 6f 56 |ND;.RUN(|LnMacroV|
|000048c0| 41 52 29 3b 00 00 00 60 | 00 00 00 00 00 00 00 00 |AR);...`|........|
|000048d0| 00 3b 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.;...A..|........|
|000048e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004920| 00 00 00 00 00 00 0b 69 | 05 79 2c a4 02 06 a5 50 |.......i|.y,....P|
|00004930| 00 31 00 00 00 40 0e 72 | 6f 74 61 74 65 20 64 72 |.1...@.r|otate dr|
|00004940| 61 77 69 6e 67 67 72 67 | 72 67 72 67 72 67 72 67 |awinggrg|rgrgrgrg|
|00004950| 72 67 72 67 72 67 0b 35 | 50 52 4f 43 45 44 55 52 |rgrgrg.5|PROCEDUR|
|00004960| 45 20 52 6f 74 61 74 65 | 41 6c 6c 3b 0d 4c 41 42 |E Rotate|All;.LAB|
|00004970| 45 4c 20 31 3b 0d 56 41 | 52 0d 09 78 63 31 2c 78 |EL 1;.VA|R..xc1,x|
|00004980| 63 32 2c 64 78 31 2c 64 | 78 32 2c 69 74 65 6d 2c |c2,dx1,d|x2,item,|
|00004990| 73 49 74 65 6d 20 3a 20 | 49 4e 54 45 47 45 52 3b |sItem : |INTEGER;|
|000049a0| 0d 09 71 75 69 74 20 3a | 20 42 4f 4f 4c 45 41 4e |..quit :| BOOLEAN|
|000049b0| 3b 0d 09 0d 09 09 7b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;.....{*|********|
|000049c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000049d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 7d 0d 09 09 7b 2a |********|**}...{*|
|000049e0| 20 43 72 65 61 74 65 64 | 20 62 79 20 4d 61 72 63 | Created| by Marc|
|000049f0| 6f 20 4d 2e 20 43 68 61 | 6d 62 65 72 6c 61 69 6e |o M. Cha|mberlain|
|00004a00| 20 2a 7d 0d 09 09 7b 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *}...{*|********|
|00004a10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 7d 0d 09 0d 09 50 |********|**}....P|
|00004a30| 72 6f 63 65 64 75 72 65 | 20 43 65 6e 74 65 72 44 |rocedure| CenterD|
|00004a40| 69 61 6c 6f 67 28 64 78 | 31 2c 64 78 32 20 3a 20 |ialog(dx|1,dx2 : |
|00004a50| 49 4e 54 45 47 45 52 3b | 20 56 41 52 20 78 63 31 |INTEGER;| VAR xc1|
|00004a60| 2c 78 63 32 20 3a 20 49 | 4e 54 45 47 45 52 29 3b |,xc2 : I|NTEGER);|
|00004a70| 0d 09 56 41 52 0d 09 09 | 73 63 72 78 31 2c 73 63 |..VAR...|scrx1,sc|
|00004a80| 72 79 31 2c 73 63 72 78 | 32 2c 73 63 72 79 32 2c |ry1,scrx|2,scry2,|
|00004a90| 77 20 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 42 45 |w : INTE|GER;..BE|
|00004aa0| 47 49 4e 0d 09 09 47 65 | 74 53 63 72 65 65 6e 28 |GIN...Ge|tScreen(|
|00004ab0| 73 63 72 78 31 2c 73 63 | 72 79 31 2c 73 63 72 78 |scrx1,sc|ry1,scrx|
|00004ac0| 32 2c 73 63 72 79 32 29 | 3b 0d 09 09 77 20 3a 3d |2,scry2)|;...w :=|
|00004ad0| 20 64 78 32 20 2d 20 64 | 78 31 3b 0d 09 09 78 63 | dx2 - d|x1;...xc|
|00004ae0| 31 20 3a 3d 20 28 28 73 | 63 72 78 31 20 2b 20 73 |1 := ((s|crx1 + s|
|00004af0| 63 72 78 32 29 20 64 69 | 76 20 32 29 20 2d 20 28 |crx2) di|v 2) - (|
|00004b00| 77 20 64 69 76 20 32 29 | 3b 0d 09 09 78 63 32 20 |w div 2)|;...xc2 |
|00004b10| 3a 3d 20 78 63 31 20 2b | 20 77 3b 0d 09 45 4e 44 |:= xc1 +| w;..END|
|00004b20| 3b 0d 09 0d 09 50 72 6f | 63 65 64 75 72 65 20 44 |;....Pro|cedure D|
|00004b30| 65 66 69 6e 65 44 69 61 | 6c 6f 67 3b 0d 09 42 65 |efineDia|log;..Be|
|00004b40| 67 69 6e 0d 09 09 43 65 | 6e 74 65 72 44 69 61 6c |gin...Ce|nterDial|
|00004b50| 6f 67 28 35 36 2c 32 30 | 38 2c 78 63 31 2c 78 63 |og(56,20|8,xc1,xc|
|00004b60| 32 29 3b 0d 09 09 42 65 | 67 69 6e 44 69 61 6c 6f |2);...Be|ginDialo|
|00004b70| 67 28 31 2c 31 2c 78 63 | 31 2c 35 36 2c 78 63 32 |g(1,1,xc|1,56,xc2|
|00004b80| 20 2b 20 38 30 2c 32 30 | 38 29 3b 0d 09 09 09 41 | + 80,20|8);....A|
|00004b90| 64 64 42 75 74 74 6f 6e | 28 27 4f 4b 27 2c 31 2c |ddButton|('OK',1,|
|00004ba0| 31 2c 33 37 2c 31 32 32 | 2c 39 37 2c 31 34 32 29 |1,37,122|,97,142)|
|00004bb0| 3b 0d 09 09 09 41 64 64 | 42 75 74 74 6f 6e 28 27 |;....Add|Button('|
|00004bc0| 43 61 6e 63 65 6c 27 2c | 32 2c 31 2c 31 32 35 2c |Cancel',|2,1,125,|
|00004bd0| 31 32 32 2c 31 38 35 2c | 31 34 32 29 3b 0d 09 09 |122,185,|142);...|
|00004be0| 09 41 64 64 46 69 65 6c | 64 28 27 5f 5f 5f 5f 5f |.AddFiel|d('_____|
|00004bf0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 27 2c 33 2c 31 2c |________|__',3,1,|
|00004c00| 36 31 2c 33 31 2c 31 36 | 36 2c 35 31 29 3b 0d 09 |61,31,16|6,51);..|
|00004c10| 09 09 41 64 64 46 69 65 | 6c 64 28 27 52 6f 74 61 |..AddFie|ld('Rota|
|00004c20| 74 65 20 41 72 6f 75 6e | 64 3a 27 2c 34 2c 31 2c |te Aroun|d:',4,1,|
|00004c30| 36 31 2c 32 37 2c 31 36 | 33 2c 34 32 29 3b 0d 09 |61,27,16|3,42);..|
|00004c40| 09 09 41 64 64 42 75 74 | 74 6f 6e 28 27 4f 72 69 |..AddBut|ton('Ori|
|00004c50| 67 69 6e 27 2c 35 2c 33 | 2c 37 31 2c 36 34 2c 31 |gin',5,3|,71,64,1|
|00004c60| 34 32 2c 38 34 29 3b 0d | 09 09 09 41 64 64 42 75 |42,84);.|...AddBu|
|00004c70| 74 74 6f 6e 28 27 4e 65 | 78 74 20 4d 6f 75 73 65 |tton('Ne|xt Mouse|
|00004c80| 20 43 6c 69 63 6b 27 2c | 36 2c 33 2c 37 31 2c 38 | Click',|6,3,71,8|
|00004c90| 38 2c 32 30 38 2c 31 30 | 38 29 3b 0d 09 09 45 6e |8,208,10|8);...En|
|00004ca0| 64 44 69 61 6c 6f 67 3b | 0d 09 45 4e 44 3b 0d 0d |dDialog;|..END;..|
|00004cb0| 09 50 72 6f 63 65 64 75 | 72 65 20 47 65 74 49 6e |.Procedu|re GetIn|
|00004cc0| 66 6f 3b 0d 09 56 41 52 | 20 66 69 6e 69 73 68 65 |fo;..VAR| finishe|
|00004cd0| 64 20 3a 20 42 4f 4f 4c | 45 41 4e 3b 0d 09 42 45 |d : BOOL|EAN;..BE|
|00004ce0| 47 49 4e 0d 09 09 47 65 | 74 44 69 61 6c 6f 67 28 |GIN...Ge|tDialog(|
|00004cf0| 31 29 3b 0d 09 09 66 69 | 6e 69 73 68 65 64 20 3a |1);...fi|nished :|
|00004d00| 3d 20 46 41 4c 53 45 3b | 0d 09 09 53 65 74 49 74 |= FALSE;|...SetIt|
|00004d10| 65 6d 28 35 2c 54 72 75 | 65 29 3b 0d 09 09 69 74 |em(5,Tru|e);...it|
|00004d20| 65 6d 20 3a 3d 20 35 3b | 0d 09 09 73 49 74 65 6d |em := 5;|...sItem|
|00004d30| 20 3a 3d 20 35 3b 0d 09 | 09 52 45 50 45 41 54 0d | := 5;..|.REPEAT.|
|00004d40| 09 09 09 44 69 61 6c 6f | 67 45 76 65 6e 74 28 69 |...Dialo|gEvent(i|
|00004d50| 74 65 6d 29 3b 0d 09 09 | 09 49 46 20 69 74 65 6d |tem);...|.IF item|
|00004d60| 20 3d 20 32 20 54 68 65 | 6e 20 42 45 47 49 4e 20 | = 2 The|n BEGIN |
|00004d70| 0d 09 09 09 09 66 69 6e | 69 73 68 65 64 20 3a 3d |.....fin|ished :=|
|00004d80| 20 54 52 55 45 3b 20 0d | 09 09 09 09 71 75 69 74 | TRUE; .|....quit|
|00004d90| 20 3a 3d 20 54 52 55 45 | 3b 20 0d 09 09 09 45 4e | := TRUE|; ....EN|
|00004da0| 44 0d 09 09 09 45 4c 53 | 45 20 49 46 20 69 74 65 |D....ELS|E IF ite|
|00004db0| 6d 20 3d 20 31 20 54 48 | 45 4e 20 66 69 6e 69 73 |m = 1 TH|EN finis|
|00004dc0| 68 65 64 20 3a 3d 20 54 | 52 55 45 0d 09 09 09 45 |hed := T|RUE....E|
|00004dd0| 4c 53 45 20 49 46 20 28 | 69 74 65 6d 20 3e 20 34 |LSE IF (|item > 4|
|00004de0| 29 20 26 20 28 69 74 65 | 6d 20 3c 3d 36 29 20 54 |) & (ite|m <=6) T|
|00004df0| 48 45 4e 20 42 45 47 49 | 4e 0d 09 09 09 09 49 46 |HEN BEGI|N.....IF|
|00004e00| 20 73 49 74 65 6d 20 3c | 3e 20 30 20 54 48 45 4e | sItem <|> 0 THEN|
|00004e10| 20 53 65 74 49 74 65 6d | 28 73 49 74 65 6d 2c 46 | SetItem|(sItem,F|
|00004e20| 41 4c 53 45 29 3b 0d 09 | 09 09 09 53 65 74 49 74 |ALSE);..|...SetIt|
|00004e30| 65 6d 28 69 74 65 6d 2c | 54 52 55 45 29 3b 09 09 |em(item,|TRUE);..|
|00004e40| 0d 09 09 09 09 73 49 74 | 65 6d 20 3a 3d 20 69 74 |.....sIt|em := it|
|00004e50| 65 6d 3b 0d 09 09 09 45 | 4e 44 3b 0d 09 09 55 4e |em;....E|ND;...UN|
|00004e60| 54 49 4c 20 66 69 6e 69 | 73 68 65 64 3b 0d 09 09 |TIL fini|shed;...|
|00004e70| 43 6c 72 44 69 61 6c 6f | 67 3b 0d 09 45 4e 44 3b |ClrDialo|g;..END;|
|00004e80| 0d 0d 09 50 72 6f 63 65 | 64 75 72 65 20 4f 72 69 |...Proce|dure Ori|
|00004e90| 67 69 6e 43 65 6e 74 65 | 72 3b 0d 09 4c 41 42 45 |ginCente|r;..LABE|
|00004ea0| 4c 20 32 3b 0d 09 56 41 | 52 09 68 6c 2c 6c 6f 68 |L 2;..VA|R.hl,loh|
|00004eb0| 20 3a 20 48 41 4e 44 4c | 45 3b 0d 09 09 61 6e 67 | : HANDL|E;...ang|
|00004ec0| 6c 65 20 3a 20 52 45 41 | 4c 3b 0d 09 09 6c 6e 61 |le : REA|L;...lna|
|00004ed0| 6d 65 20 3a 20 53 54 52 | 49 4e 47 3b 0d 09 42 45 |me : STR|ING;..BE|
|00004ee0| 47 49 4e 0d 09 09 41 4e | 47 4c 45 56 41 52 3b 0d |GIN...AN|GLEVAR;.|
|00004ef0| 09 09 61 6e 67 6c 65 20 | 3a 3d 20 41 4e 47 44 49 |..angle |:= ANGDI|
|00004f00| 41 4c 4f 47 28 27 45 6e | 74 65 72 20 64 65 67 72 |ALOG('En|ter degr|
|00004f10| 65 65 73 20 6f 66 20 72 | 6f 74 61 74 69 6f 6e 3a |ees of r|otation:|
|00004f20| 27 2c 27 39 30 a1 27 29 | 3b 0d 09 09 49 46 20 44 |','90.')|;...IF D|
|00004f30| 49 44 43 41 4e 43 45 4c | 20 54 48 45 4e 20 47 4f |IDCANCEL| THEN GO|
|00004f40| 54 4f 20 32 3b 0d 09 09 | 68 6c 3a 3d 20 46 4c 61 |TO 2;...|hl:= FLa|
|00004f50| 79 65 72 3b 0d 09 09 4d | 65 73 73 61 67 65 28 27 |yer;...M|essage('|
|00004f60| 44 6f 69 6e 67 20 72 6f | 74 61 74 69 6f 6e 20 2e |Doing ro|tation .|
|00004f70| 2e 2e 2e 27 29 3b 0d 09 | 09 52 65 70 65 61 74 0d |...');..|.Repeat.|
|00004f80| 09 09 09 6c 6e 61 6d 65 | 20 3a 3d 20 47 65 74 4c |...lname| := GetL|
|00004f90| 4e 61 6d 65 28 68 6c 29 | 3b 0d 09 09 09 4c 61 79 |Name(hl)|;....Lay|
|00004fa0| 65 72 28 6c 6e 61 6d 65 | 29 3b 0d 09 09 09 53 45 |er(lname|);....SE|
|00004fb0| 4c 45 43 54 41 4c 4c 3b | 0d 09 09 09 47 52 4f 55 |LECTALL;|....GROU|
|00004fc0| 50 3b 0d 09 09 09 44 53 | 45 4c 45 43 54 41 4c 4c |P;....DS|ELECTALL|
|00004fd0| 3b 0d 09 09 09 4c 6f 63 | 75 73 28 30 2c 30 29 3b |;....Loc|us(0,0);|
|00004fe0| 0d 09 09 09 6c 6f 68 20 | 3a 3d 20 46 53 41 43 54 |....loh |:= FSACT|
|00004ff0| 4c 41 59 45 52 3b 0d 09 | 09 09 4d 6f 76 65 42 61 |LAYER;..|..MoveBa|
|00005000| 63 6b 3b 0d 09 09 09 53 | 45 4c 45 43 54 41 4c 4c |ck;....S|ELECTALL|
|00005010| 3b 0d 09 09 09 52 6f 74 | 61 74 65 28 23 61 6e 67 |;....Rot|ate(#ang|
|00005020| 6c 65 29 3b 0d 09 09 09 | 55 4e 47 52 4f 55 50 3b |le);....|UNGROUP;|
|00005030| 0d 09 09 09 44 53 45 4c | 45 43 54 41 4c 4c 3b 0d |....DSEL|ECTALL;.|
|00005040| 09 09 09 53 45 54 53 45 | 4c 45 43 54 28 6c 6f 68 |...SETSE|LECT(loh|
|00005050| 29 3b 0d 09 09 09 44 45 | 4c 45 54 45 4f 42 4a 53 |);....DE|LETEOBJS|
|00005060| 3b 0d 09 09 09 44 53 45 | 4c 45 43 54 41 4c 4c 3b |;....DSE|LECTALL;|
|00005070| 0d 09 09 09 68 6c 20 3a | 3d 20 4e 65 78 74 4c 61 |....hl :|= NextLa|
|00005080| 79 65 72 28 68 6c 29 3b | 0d 09 09 55 4e 54 49 4c |yer(hl);|...UNTIL|
|00005090| 20 68 6c 20 3d 20 4e 49 | 4c 3b 0d 09 09 43 6c 72 | hl = NI|L;...Clr|
|000050a0| 4d 65 73 73 61 67 65 3b | 0d 32 3a 09 45 4e 44 3b |Message;|.2:.END;|
|000050b0| 0d 0d 09 50 72 6f 63 65 | 64 75 72 65 20 4d 6f 75 |...Proce|dure Mou|
|000050c0| 73 65 43 65 6e 74 65 72 | 3b 0d 09 4c 41 42 45 4c |seCenter|;..LABEL|
|000050d0| 20 32 3b 0d 09 56 41 52 | 09 68 6c 2c 6c 6f 68 20 | 2;..VAR|.hl,loh |
|000050e0| 3a 20 48 41 4e 44 4c 45 | 3b 0d 09 09 61 6e 67 6c |: HANDLE|;...angl|
|000050f0| 65 2c 78 2c 79 2c 78 6e | 2c 79 6e 2c 73 63 61 6c |e,x,y,xn|,yn,scal|
|00005100| 65 2c 73 74 61 72 74 6c | 61 79 65 72 20 3a 20 52 |e,startl|ayer : R|
|00005110| 45 41 4c 3b 0d 09 09 6c | 6e 61 6d 65 20 3a 20 53 |EAL;...l|name : S|
|00005120| 54 52 49 4e 47 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |TRING;..|BEGIN...|
|00005130| 41 4e 47 4c 45 56 41 52 | 3b 0d 09 09 73 74 61 72 |ANGLEVAR|;...star|
|00005140| 74 6c 61 79 65 72 20 3a | 3d 20 47 65 74 4c 53 63 |tlayer :|= GetLSc|
|00005150| 61 6c 65 28 41 63 74 4c | 61 79 65 72 29 3b 0d 09 |ale(ActL|ayer);..|
|00005160| 09 61 6e 67 6c 65 20 3a | 3d 20 41 4e 47 44 49 41 |.angle :|= ANGDIA|
|00005170| 4c 4f 47 28 27 45 6e 74 | 65 72 20 64 65 67 72 65 |LOG('Ent|er degre|
|00005180| 65 73 20 6f 66 20 72 6f | 74 61 74 69 6f 6e 3a 27 |es of ro|tation:'|
|00005190| 2c 27 39 30 a1 27 29 3b | 0d 09 09 49 46 20 44 49 |,'90.');|...IF DI|
|000051a0| 44 43 41 4e 43 45 4c 20 | 54 48 45 4e 20 47 4f 54 |DCANCEL |THEN GOT|
|000051b0| 4f 20 32 3b 0d 09 09 4d | 65 73 73 61 67 65 28 27 |O 2;...M|essage('|
|000051c0| 43 6c 69 63 6b 20 66 6f | 72 20 63 65 6e 74 65 72 |Click fo|r center|
|000051d0| 20 6f 66 20 72 6f 74 61 | 74 69 6f 6e 2e 27 29 3b | of rota|tion.');|
|000051e0| 0d 09 09 53 65 74 43 75 | 72 73 6f 72 28 53 4d 43 |...SetCu|rsor(SMC|
|000051f0| 72 6f 73 73 43 29 3b 0d | 09 09 52 65 70 65 61 74 |rossC);.|..Repeat|
|00005200| 0d 09 09 55 4e 54 49 4c | 20 4d 4f 55 53 45 44 4f |...UNTIL| MOUSEDO|
|00005210| 57 4e 28 78 2c 79 29 3b | 0d 09 09 4d 65 73 73 61 |WN(x,y);|...Messa|
|00005220| 67 65 28 27 44 6f 69 6e | 67 20 72 6f 74 61 74 69 |ge('Doin|g rotati|
|00005230| 6f 6e 20 2e 2e 2e 2e 27 | 29 3b 0d 09 09 68 6c 20 |on ....'|);...hl |
|00005240| 3a 3d 20 46 4c 61 79 65 | 72 3b 0d 09 09 52 65 70 |:= FLaye|r;...Rep|
|00005250| 65 61 74 0d 09 09 09 6c | 6e 61 6d 65 20 3a 3d 20 |eat....l|name := |
|00005260| 47 65 74 4c 4e 61 6d 65 | 28 68 6c 29 3b 0d 09 09 |GetLName|(hl);...|
|00005270| 09 4c 61 79 65 72 28 6c | 6e 61 6d 65 29 3b 0d 09 |.Layer(l|name);..|
|00005280| 09 09 73 63 61 6c 65 20 | 3a 3d 20 47 65 74 4c 53 |..scale |:= GetLS|
|00005290| 63 61 6c 65 28 68 6c 29 | 3b 0d 09 09 09 53 45 4c |cale(hl)|;....SEL|
|000052a0| 45 43 54 41 4c 4c 3b 0d | 09 09 09 47 52 4f 55 50 |ECTALL;.|...GROUP|
|000052b0| 3b 0d 09 09 09 44 53 45 | 4c 45 43 54 41 4c 4c 3b |;....DSE|LECTALL;|
|000052c0| 0d 09 09 09 49 46 20 73 | 74 61 72 74 6c 61 79 65 |....IF s|tartlaye|
|000052d0| 72 20 3c 3e 20 73 63 61 | 6c 65 20 54 48 45 4e 0d |r <> sca|le THEN.|
|000052e0| 09 09 09 09 4c 6f 63 75 | 73 28 28 73 63 61 6c 65 |....Locu|s((scale|
|000052f0| 2f 73 74 61 72 74 6c 61 | 79 65 72 29 20 2a 20 78 |/startla|yer) * x|
|00005300| 2c 28 73 63 61 6c 65 2f | 73 74 61 72 74 6c 61 79 |,(scale/|startlay|
|00005310| 65 72 29 20 2a 20 79 29 | 0d 09 09 09 45 4c 53 45 |er) * y)|....ELSE|
|00005320| 20 4c 6f 63 75 73 28 78 | 2c 79 29 3b 0d 09 09 09 | Locus(x|,y);....|
|00005330| 6c 6f 68 20 3a 3d 20 46 | 53 41 43 54 4c 41 59 45 |loh := F|SACTLAYE|
|00005340| 52 3b 0d 09 09 09 4d 6f | 76 65 42 61 63 6b 3b 0d |R;....Mo|veBack;.|
|00005350| 09 09 09 53 45 4c 45 43 | 54 41 4c 4c 3b 0d 09 09 |...SELEC|TALL;...|
|00005360| 09 52 6f 74 61 74 65 28 | 23 61 6e 67 6c 65 29 3b |.Rotate(|#angle);|
|00005370| 0d 09 09 09 55 4e 47 52 | 4f 55 50 3b 0d 09 09 09 |....UNGR|OUP;....|
|00005380| 44 53 45 4c 45 43 54 41 | 4c 4c 3b 0d 09 09 09 53 |DSELECTA|LL;....S|
|00005390| 45 54 53 45 4c 45 43 54 | 28 6c 6f 68 29 3b 0d 09 |ETSELECT|(loh);..|
|000053a0| 09 09 44 45 4c 45 54 45 | 4f 42 4a 53 3b 0d 09 09 |..DELETE|OBJS;...|
|000053b0| 09 44 53 45 4c 45 43 54 | 41 4c 4c 3b 0d 09 09 09 |.DSELECT|ALL;....|
|000053c0| 68 6c 20 3a 3d 20 4e 65 | 78 74 4c 61 79 65 72 28 |hl := Ne|xtLayer(|
|000053d0| 68 6c 29 3b 0d 09 09 55 | 4e 54 49 4c 20 68 6c 20 |hl);...U|NTIL hl |
|000053e0| 3d 20 4e 49 4c 3b 0d 09 | 09 43 6c 72 4d 65 73 73 |= NIL;..|.ClrMess|
|000053f0| 61 67 65 3b 0d 32 3a 09 | 45 4e 44 3b 0d 0d 42 45 |age;.2:.|END;..BE|
|00005400| 47 49 4e 0d 09 71 75 69 | 74 20 3a 3d 20 46 41 4c |GIN..qui|t := FAL|
|00005410| 53 45 3b 0d 09 44 65 66 | 69 6e 65 44 69 61 6c 6f |SE;..Def|ineDialo|
|00005420| 67 3b 0d 09 47 65 74 49 | 6e 66 6f 3b 0d 09 49 46 |g;..GetI|nfo;..IF|
|00005430| 20 71 75 69 74 20 54 48 | 45 4e 20 47 4f 54 4f 20 | quit TH|EN GOTO |
|00005440| 31 3b 0d 09 49 46 20 73 | 49 74 65 6d 20 3d 20 35 |1;..IF s|Item = 5|
|00005450| 20 54 48 45 4e 20 4f 72 | 69 67 69 6e 43 65 6e 74 | THEN Or|iginCent|
|00005460| 65 72 0d 09 45 6c 73 65 | 20 4d 6f 75 73 65 43 65 |er..Else| MouseCe|
|00005470| 6e 74 65 72 3b 0d 31 3a | 20 45 4e 44 3b 0d 52 55 |nter;.1:| END;.RU|
|00005480| 4e 28 52 6f 74 61 74 65 | 41 6c 6c 29 3b 00 00 00 |N(Rotate|All);...|
|00005490| 60 00 00 00 00 00 00 00 | 00 00 3b 00 00 00 41 00 |`.......|..;...A.|
|000054a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 09 |........|........|
|000054f0| 94 05 79 2c a4 02 06 a5 | 00 00 31 00 00 00 40 12 |..y,....|..1...@.|
|00005500| 65 78 74 65 6e 64 20 6c | 69 6e 65 20 74 6f 20 2e |extend l|ine to .|
|00005510| 2e 2e 67 72 67 72 67 72 | 67 72 67 72 67 72 67 09 |..grgrgr|grgrgrg.|
|00005520| 60 50 52 4f 43 45 44 55 | 52 45 20 45 78 74 65 6e |`PROCEDU|RE Exten|
|00005530| 64 3b 0d 7b 2a 20 62 79 | 20 53 65 61 6e 20 46 6c |d;.{* by| Sean Fl|
|00005540| 61 68 65 72 74 79 20 6f | 66 20 47 72 61 70 68 73 |aherty o|f Graphs|
|00005550| 6f 66 74 2c 20 49 6e 63 | 2e 20 09 09 09 09 09 2a |oft, Inc|. .....*|
|00005560| 7d 0d 7b 2a 20 54 61 6b | 65 73 20 74 68 65 20 73 |}.{* Tak|es the s|
|00005570| 65 6c 65 63 74 65 64 20 | 6c 69 6e 65 73 20 61 6e |elected |lines an|
|00005580| 64 20 65 78 74 65 6e 64 | 73 20 74 68 65 6d 20 74 |d extend|s them t|
|00005590| 6f 20 61 20 6c 69 6e 65 | 09 2a 7d 0d 7b 2a 09 63 |o a line|.*}.{*.c|
|000055a0| 68 6f 73 65 6e 20 62 79 | 20 74 68 65 20 75 73 65 |hosen by| the use|
|000055b0| 72 2e 09 09 09 09 09 09 | 09 09 09 2a 7d 0d 0d 56 |r.......|...*}..V|
|000055c0| 41 52 0d 09 74 68 65 4c | 69 73 74 2c 20 74 68 65 |AR..theL|ist, the|
|000055d0| 4f 62 6a 09 09 09 09 09 | 3a 20 48 61 6e 64 6c 65 |Obj.....|: Handle|
|000055e0| 3b 0d 09 77 68 65 72 65 | 58 2c 20 77 68 65 72 65 |;..where|X, where|
|000055f0| 59 2c 20 70 78 2c 20 70 | 79 2c 20 76 78 2c 20 76 |Y, px, p|y, vx, v|
|00005600| 79 09 3a 20 52 45 41 4c | 3b 0d 09 0d 09 46 55 4e |y.: REAL|;....FUN|
|00005610| 43 54 49 4f 4e 20 43 72 | 6f 73 73 50 28 20 78 31 |CTION Cr|ossP( x1|
|00005620| 2c 20 79 31 2c 20 78 32 | 2c 20 79 32 20 3a 20 52 |, y1, x2|, y2 : R|
|00005630| 45 41 4c 20 29 20 3a 20 | 52 45 41 4c 3b 0d 09 42 |EAL ) : |REAL;..B|
|00005640| 45 47 49 4e 0d 09 09 43 | 72 6f 73 73 50 20 3a 3d |EGIN...C|rossP :=|
|00005650| 20 78 31 20 2a 20 79 32 | 20 2d 20 78 32 20 2a 20 | x1 * y2| - x2 * |
|00005660| 79 31 3b 0d 09 45 4e 44 | 3b 0d 09 0d 09 46 55 4e |y1;..END|;....FUN|
|00005670| 43 54 49 4f 4e 20 44 69 | 73 74 54 6f 56 28 20 78 |CTION Di|stToV( x|
|00005680| 2c 20 79 20 3a 20 52 45 | 41 4c 20 29 20 3a 20 52 |, y : RE|AL ) : R|
|00005690| 45 41 4c 3b 0d 09 56 41 | 52 0d 09 09 6e 75 6d 2c |EAL;..VA|R...num,|
|000056a0| 20 64 65 6e 6f 6d 09 3a | 20 52 45 41 4c 3b 0d 09 | denom.:| REAL;..|
|000056b0| 42 45 47 49 4e 0d 09 09 | 6e 75 6d 20 3a 3d 20 41 |BEGIN...|num := A|
|000056c0| 62 73 28 20 43 72 6f 73 | 73 50 28 20 78 20 2d 20 |bs( Cros|sP( x - |
|000056d0| 70 78 2c 20 79 20 2d 20 | 70 79 2c 20 76 78 2c 20 |px, y - |py, vx, |
|000056e0| 76 79 20 29 29 3b 0d 09 | 09 64 65 6e 6f 6d 20 3a |vy ));..|.denom :|
|000056f0| 3d 20 53 71 72 74 28 20 | 76 78 2a 2a 32 20 2b 20 |= Sqrt( |vx**2 + |
|00005700| 76 79 20 2a 2a 32 20 29 | 3b 0d 09 09 44 69 73 74 |vy **2 )|;...Dist|
|00005710| 54 6f 56 20 3a 3d 20 6e | 75 6d 20 2f 20 64 65 6e |ToV := n|um / den|
|00005720| 6f 6d 3b 0d 09 45 4e 44 | 3b 0d 09 0d 09 50 52 4f |om;..END|;....PRO|
|00005730| 43 45 44 55 52 45 20 47 | 65 74 45 71 75 61 74 69 |CEDURE G|etEquati|
|00005740| 6f 6e 28 20 78 31 2c 20 | 79 31 2c 20 78 32 2c 20 |on( x1, |y1, x2, |
|00005750| 79 32 20 3a 20 52 45 41 | 4c 3b 20 56 41 52 20 73 |y2 : REA|L; VAR s|
|00005760| 6c 6f 70 65 2c 20 6f 66 | 66 20 3a 20 52 45 41 4c |lope, of|f : REAL|
|00005770| 3b 20 56 41 52 20 69 6e | 66 20 3a 20 42 4f 4f 4c |; VAR in|f : BOOL|
|00005780| 45 41 4e 20 29 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |EAN );..|BEGIN...|
|00005790| 49 46 20 78 31 20 3d 20 | 78 32 20 54 48 45 4e 20 |IF x1 = |x2 THEN |
|000057a0| 69 6e 66 20 3a 3d 20 54 | 52 55 45 0d 09 09 45 4c |inf := T|RUE...EL|
|000057b0| 53 45 20 42 45 47 49 4e | 0d 09 09 09 69 6e 66 20 |SE BEGIN|....inf |
|000057c0| 3a 3d 20 46 41 4c 53 45 | 3b 0d 09 09 09 73 6c 6f |:= FALSE|;....slo|
|000057d0| 70 65 20 3a 3d 20 28 20 | 79 32 20 2d 20 79 31 20 |pe := ( |y2 - y1 |
|000057e0| 29 20 2f 20 28 20 78 32 | 20 2d 20 78 31 20 29 3b |) / ( x2| - x1 );|
|000057f0| 0d 09 09 09 6f 66 66 20 | 3a 3d 20 79 31 20 2d 20 |....off |:= y1 - |
|00005800| 73 6c 6f 70 65 20 2a 20 | 78 31 3b 0d 09 09 45 4e |slope * |x1;...EN|
|00005810| 44 3b 0d 09 45 4e 44 3b | 0d 09 0d 0d 09 50 52 4f |D;..END;|.....PRO|
|00005820| 43 45 44 55 52 45 20 45 | 78 74 65 6e 64 4c 69 6e |CEDURE E|xtendLin|
|00005830| 65 28 20 75 20 3a 20 48 | 61 6e 64 6c 65 20 29 3b |e( u : H|andle );|
|00005840| 0d 09 56 41 52 0d 09 09 | 73 31 78 2c 20 73 31 79 |..VAR...|s1x, s1y|
|00005850| 2c 20 73 32 78 2c 20 73 | 32 79 2c 20 72 78 2c 20 |, s2x, s|2y, rx, |
|00005860| 72 79 09 3a 20 52 45 41 | 4c 3b 0d 0d 09 09 46 55 |ry.: REA|L;....FU|
|00005870| 4e 43 54 49 4f 4e 20 53 | 65 63 74 54 6f 56 28 20 |NCTION S|ectToV( |
|00005880| 61 31 78 2c 20 61 31 79 | 2c 20 61 32 78 2c 20 61 |a1x, a1y|, a2x, a|
|00005890| 32 79 20 3a 20 52 45 41 | 4c 20 29 20 3a 20 42 4f |2y : REA|L ) : BO|
|000058a0| 4f 4c 45 41 4e 3b 0d 09 | 09 56 41 52 0d 09 09 09 |OLEAN;..|.VAR....|
|000058b0| 69 6e 66 41 2c 20 69 6e | 66 56 2c 20 74 6d 70 42 |infA, in|fV, tmpB|
|000058c0| 6f 6f 6c 09 09 09 09 3a | 20 42 4f 4f 4c 45 41 4e |ool....:| BOOLEAN|
|000058d0| 3b 0d 09 09 09 73 6c 6f | 70 65 41 2c 20 73 6c 6f |;....slo|peA, slo|
|000058e0| 70 65 56 2c 20 6f 66 66 | 41 2c 20 6f 66 66 56 09 |peV, off|A, offV.|
|000058f0| 09 3a 20 52 45 41 4c 3b | 0d 09 09 09 0d 09 09 42 |.: REAL;|.......B|
|00005900| 45 47 49 4e 0d 09 09 09 | 47 65 74 45 71 75 61 74 |EGIN....|GetEquat|
|00005910| 69 6f 6e 28 20 61 31 78 | 2c 20 61 31 79 2c 20 61 |ion( a1x|, a1y, a|
|00005920| 32 78 2c 20 61 32 79 2c | 20 73 6c 6f 70 65 41 2c |2x, a2y,| slopeA,|
|00005930| 20 6f 66 66 41 2c 20 69 | 6e 66 41 20 29 3b 0d 09 | offA, i|nfA );..|
|00005940| 09 09 47 65 74 45 71 75 | 61 74 69 6f 6e 28 20 70 |..GetEqu|ation( p|
|00005950| 78 2c 20 70 79 2c 20 70 | 78 20 2b 20 76 78 2c 20 |x, py, p|x + vx, |
|00005960| 70 79 20 2b 20 76 79 2c | 20 73 6c 6f 70 65 56 2c |py + vy,| slopeV,|
|00005970| 20 6f 66 66 56 2c 20 69 | 6e 66 56 20 29 3b 0d 0d | offV, i|nfV );..|
|00005980| 09 09 09 49 46 20 69 6e | 66 41 20 26 20 69 6e 66 |...IF in|fA & inf|
|00005990| 56 20 54 48 45 4e 20 74 | 6d 70 42 6f 6f 6c 20 3a |V THEN t|mpBool :|
|000059a0| 3d 20 46 41 4c 53 45 0d | 09 09 09 45 4c 53 45 20 |= FALSE.|...ELSE |
|000059b0| 42 45 47 49 4e 0d 09 09 | 09 09 74 6d 70 42 6f 6f |BEGIN...|..tmpBoo|
|000059c0| 6c 20 3a 3d 20 54 52 55 | 45 3b 0d 09 09 09 09 49 |l := TRU|E;.....I|
|000059d0| 46 20 69 6e 66 41 20 54 | 48 45 4e 20 42 45 47 49 |F infA T|HEN BEGI|
|000059e0| 4e 0d 09 09 09 09 09 72 | 78 20 3a 3d 20 61 31 78 |N......r|x := a1x|
|000059f0| 3b 0d 09 09 09 09 09 72 | 79 20 3a 3d 20 73 6c 6f |;......r|y := slo|
|00005a00| 70 65 56 20 2a 20 72 78 | 20 2b 20 6f 66 66 56 3b |peV * rx| + offV;|
|00005a10| 0d 09 09 09 09 45 4e 44 | 0d 09 09 09 09 45 4c 53 |.....END|.....ELS|
|00005a20| 45 20 49 46 20 69 6e 66 | 56 20 54 48 45 4e 20 42 |E IF inf|V THEN B|
|00005a30| 45 47 49 4e 0d 09 09 09 | 09 09 09 72 78 20 3a 3d |EGIN....|...rx :=|
|00005a40| 20 70 78 3b 0d 09 09 09 | 09 09 09 72 79 20 3a 3d | px;....|...ry :=|
|00005a50| 20 73 6c 6f 70 65 41 20 | 2a 20 72 78 20 2b 20 6f | slopeA |* rx + o|
|00005a60| 66 66 41 3b 0d 09 09 09 | 09 09 45 4e 44 0d 09 09 |ffA;....|..END...|
|00005a70| 09 09 09 45 4c 53 45 20 | 49 46 20 73 6c 6f 70 65 |...ELSE |IF slope|
|00005a80| 41 20 3c 3e 20 73 6c 6f | 70 65 56 20 54 48 45 4e |A <> slo|peV THEN|
|00005a90| 20 42 45 47 49 4e 0d 09 | 09 09 09 09 09 09 72 78 | BEGIN..|......rx|
|00005aa0| 20 3a 3d 20 28 20 6f 66 | 66 56 20 2d 20 6f 66 66 | := ( of|fV - off|
|00005ab0| 41 20 29 20 2f 20 28 20 | 73 6c 6f 70 65 41 20 2d |A ) / ( |slopeA -|
|00005ac0| 20 73 6c 6f 70 65 56 20 | 29 3b 0d 09 09 09 09 09 | slopeV |);......|
|00005ad0| 09 09 72 79 20 3a 3d 20 | 73 6c 6f 70 65 41 20 2a |..ry := |slopeA *|
|00005ae0| 20 72 78 20 2b 20 6f 66 | 66 41 3b 0d 09 09 09 09 | rx + of|fA;.....|
|00005af0| 09 09 45 4e 44 0d 09 09 | 09 09 09 09 45 4c 53 45 |..END...|....ELSE|
|00005b00| 20 74 6d 70 42 6f 6f 6c | 20 3a 3d 20 46 41 4c 53 | tmpBool| := FALS|
|00005b10| 45 3b 0d 09 09 09 45 4e | 44 3b 0d 09 09 09 0d 09 |E;....EN|D;......|
|00005b20| 09 09 53 65 63 74 54 6f | 56 20 3a 3d 20 74 6d 70 |..SectTo|V := tmp|
|00005b30| 42 6f 6f 6c 3b 0d 09 09 | 45 4e 44 3b 0d 0d 09 42 |Bool;...|END;...B|
|00005b40| 45 47 49 4e 0d 09 09 47 | 65 74 53 65 67 50 74 31 |EGIN...G|etSegPt1|
|00005b50| 28 20 75 2c 20 73 31 78 | 2c 20 73 31 79 20 29 3b |( u, s1x|, s1y );|
|00005b60| 0d 09 09 47 65 74 53 65 | 67 50 74 32 28 20 75 2c |...GetSe|gPt2( u,|
|00005b70| 20 73 32 78 2c 20 73 32 | 79 20 29 3b 0d 09 09 0d | s2x, s2|y );....|
|00005b80| 09 09 49 46 20 44 69 73 | 74 54 6f 56 28 73 31 78 |..IF Dis|tToV(s1x|
|00005b90| 2c 73 31 79 29 20 3c 20 | 44 69 73 74 54 6f 56 28 |,s1y) < |DistToV(|
|00005ba0| 73 32 78 2c 73 32 79 29 | 20 54 48 45 4e 20 42 45 |s2x,s2y)| THEN BE|
|00005bb0| 47 49 4e 0d 09 09 09 49 | 46 20 53 65 63 74 54 6f |GIN....I|F SectTo|
|00005bc0| 56 28 73 31 78 2c 73 31 | 79 2c 73 32 78 2c 73 32 |V(s1x,s1|y,s2x,s2|
|00005bd0| 79 29 20 54 48 45 4e 20 | 53 65 74 53 65 67 50 74 |y) THEN |SetSegPt|
|00005be0| 31 28 75 2c 72 78 2c 72 | 79 29 3b 0d 09 09 45 4e |1(u,rx,r|y);...EN|
|00005bf0| 44 0d 09 09 45 4c 53 45 | 20 42 45 47 49 4e 0d 09 |D...ELSE| BEGIN..|
|00005c00| 09 09 49 46 20 53 65 63 | 74 54 6f 56 28 73 31 78 |..IF Sec|tToV(s1x|
|00005c10| 2c 73 31 79 2c 73 32 78 | 2c 73 32 79 29 20 54 48 |,s1y,s2x|,s2y) TH|
|00005c20| 45 4e 20 53 65 74 53 65 | 67 50 74 32 28 75 2c 72 |EN SetSe|gPt2(u,r|
|00005c30| 78 2c 72 79 29 3b 0d 09 | 09 45 4e 44 3b 0d 09 45 |x,ry);..|.END;..E|
|00005c40| 4e 44 3b 0d 0d 42 45 47 | 49 4e 0d 09 74 68 65 4c |ND;..BEG|IN..theL|
|00005c50| 69 73 74 20 3a 3d 20 46 | 53 41 63 74 4c 61 79 65 |ist := F|SActLaye|
|00005c60| 72 3b 0d 09 49 46 20 74 | 68 65 4c 69 73 74 20 3c |r;..IF t|heList <|
|00005c70| 3e 20 4e 49 4c 20 54 48 | 45 4e 20 42 45 47 49 4e |> NIL TH|EN BEGIN|
|00005c80| 0d 09 09 4d 65 73 73 61 | 67 65 28 20 27 50 69 63 |...Messa|ge( 'Pic|
|00005c90| 6b 20 74 68 65 20 6c 69 | 6e 65 20 74 6f 20 65 78 |k the li|ne to ex|
|00005ca0| 74 65 6e 64 20 74 6f 27 | 20 29 3b 0d 09 09 47 65 |tend to'| );...Ge|
|00005cb0| 74 50 74 28 20 77 68 65 | 72 65 58 2c 20 77 68 65 |tPt( whe|reX, whe|
|00005cc0| 72 65 59 20 29 3b 0d 09 | 09 43 6c 72 4d 65 73 73 |reY );..|.ClrMess|
|00005cd0| 61 67 65 3b 0d 09 09 74 | 68 65 4f 62 6a 20 3a 3d |age;...t|heObj :=|
|00005ce0| 20 50 69 63 6b 4f 62 6a | 65 63 74 28 20 77 68 65 | PickObj|ect( whe|
|00005cf0| 72 65 58 2c 20 77 68 65 | 72 65 59 20 29 3b 0d 09 |reX, whe|reY );..|
|00005d00| 09 49 46 20 28 20 74 68 | 65 4f 62 6a 20 3c 3e 20 |.IF ( th|eObj <> |
|00005d10| 4e 49 4c 20 29 20 26 20 | 28 20 47 65 74 54 79 70 |NIL ) & |( GetTyp|
|00005d20| 65 28 20 74 68 65 4f 62 | 6a 20 29 20 3d 20 32 20 |e( theOb|j ) = 2 |
|00005d30| 29 20 54 48 45 4e 20 42 | 45 47 49 4e 0d 09 09 09 |) THEN B|EGIN....|
|00005d40| 7b 2a 20 73 65 74 20 74 | 68 65 20 63 6f 6e 73 74 |{* set t|he const|
|00005d50| 72 61 69 6e 69 6e 67 20 | 76 65 63 74 6f 72 20 2a |raining |vector *|
|00005d60| 7d 0d 09 09 09 47 65 74 | 53 65 67 50 74 31 28 20 |}....Get|SegPt1( |
|00005d70| 74 68 65 4f 62 6a 2c 20 | 70 78 2c 20 70 79 20 29 |theObj, |px, py )|
|00005d80| 3b 0d 09 09 09 47 65 74 | 53 65 67 50 74 32 28 20 |;....Get|SegPt2( |
|00005d90| 74 68 65 4f 62 6a 2c 20 | 77 68 65 72 65 58 2c 20 |theObj, |whereX, |
|00005da0| 77 68 65 72 65 59 20 29 | 3b 0d 09 09 09 76 78 20 |whereY )|;....vx |
|00005db0| 3a 3d 20 77 68 65 72 65 | 58 20 2d 20 70 78 3b 0d |:= where|X - px;.|
|00005dc0| 09 09 09 76 79 20 3a 3d | 20 77 68 65 72 65 59 20 |...vy :=| whereY |
|00005dd0| 2d 20 70 79 3b 0d 09 09 | 09 0d 09 09 09 57 48 49 |- py;...|.....WHI|
|00005de0| 4c 45 20 74 68 65 4c 69 | 73 74 20 3c 3e 20 4e 49 |LE theLi|st <> NI|
|00005df0| 4c 20 44 4f 20 42 45 47 | 49 4e 0d 09 09 09 09 49 |L DO BEG|IN.....I|
|00005e00| 46 20 47 65 74 54 79 70 | 65 28 20 74 68 65 4c 69 |F GetTyp|e( theLi|
|00005e10| 73 74 20 29 20 3d 20 32 | 20 54 48 45 4e 20 45 78 |st ) = 2| THEN Ex|
|00005e20| 74 65 6e 64 4c 69 6e 65 | 28 20 74 68 65 4c 69 73 |tendLine|( theLis|
|00005e30| 74 20 29 3b 0d 09 09 09 | 09 74 68 65 4c 69 73 74 |t );....|.theList|
|00005e40| 20 3a 3d 20 4e 65 78 74 | 53 4f 62 6a 28 20 74 68 | := Next|SObj( th|
|00005e50| 65 4c 69 73 74 20 29 3b | 0d 09 09 09 45 4e 44 3b |eList );|....END;|
|00005e60| 0d 09 09 45 4e 44 3b 0d | 09 45 4e 44 3b 0d 45 4e |...END;.|.END;.EN|
|00005e70| 44 3b 0d 52 55 4e 28 20 | 45 78 74 65 6e 64 20 29 |D;.RUN( |Extend )|
|00005e80| 3b 00 00 00 60 00 00 00 | 00 00 00 00 00 00 3b 00 |;...`...|......;.|
|00005e90| 00 00 41 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..A.....|........|
|00005ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ee0| 00 00 00 03 c0 05 79 2c | a4 02 06 a5 58 00 31 00 |......y,|....X.1.|
|00005ef0| 00 00 40 0e 72 65 70 6c | 61 63 65 20 73 79 6d 62 |..@.repl|ace symb|
|00005f00| 6f 6c 67 72 67 72 67 72 | 67 72 67 72 67 72 67 72 |olgrgrgr|grgrgrgr|
|00005f10| 67 72 67 03 8c 50 52 4f | 43 45 44 55 52 45 20 52 |grg..PRO|CEDURE R|
|00005f20| 65 70 6c 61 63 65 3b 0d | 4c 41 42 45 4c 20 31 3b |eplace;.|LABEL 1;|
|00005f30| 0d 56 41 52 0d 09 6f 6c | 64 2c 20 6e 65 77 2c 20 |.VAR..ol|d, new, |
|00005f40| 6c 61 79 65 72 6e 61 6d | 65 20 3a 20 53 54 52 49 |layernam|e : STRI|
|00005f50| 4e 47 3b 0d 09 6c 68 2c | 20 6f 68 2c 20 6e 68 09 |NG;..lh,| oh, nh.|
|00005f60| 3a 20 48 41 4e 44 4c 45 | 3b 0d 09 78 2c 79 2c 64 |: HANDLE|;..x,y,d|
|00005f70| 65 67 72 6f 74 09 3a 20 | 52 45 41 4c 3b 0d 0d 42 |egrot.: |REAL;..B|
|00005f80| 45 47 49 4e 0d 09 41 4e | 47 4c 45 56 41 52 3b 0d |EGIN..AN|GLEVAR;.|
|00005f90| 09 6e 68 20 3a 3d 20 46 | 53 41 43 54 4c 41 59 45 |.nh := F|SACTLAYE|
|00005fa0| 52 3b 0d 09 49 46 20 6e | 68 20 3c 3e 20 6e 69 6c |R;..IF n|h <> nil|
|00005fb0| 20 54 48 45 4e 20 49 46 | 20 47 45 54 54 59 50 45 | THEN IF| GETTYPE|
|00005fc0| 28 6e 68 29 20 3d 20 31 | 35 20 54 48 45 4e 20 6f |(nh) = 1|5 THEN o|
|00005fd0| 6c 64 20 3a 3d 20 47 45 | 54 53 59 4d 4e 41 4d 45 |ld := GE|TSYMNAME|
|00005fe0| 28 6e 68 29 3b 0d 09 6f | 6c 64 20 3a 3d 20 53 54 |(nh);..o|ld := ST|
|00005ff0| 52 44 49 41 4c 4f 47 28 | 27 4e 61 6d 65 20 6f 66 |RDIALOG(|'Name of|
|00006000| 20 73 79 6d 62 6f 6c 20 | 74 6f 20 62 65 20 72 65 | symbol |to be re|
|00006010| 70 6c 61 63 65 64 3a 27 | 2c 6f 6c 64 29 3b 0d 09 |placed:'|,old);..|
|00006020| 49 46 20 44 49 44 43 41 | 4e 43 45 4c 20 54 48 45 |IF DIDCA|NCEL THE|
|00006030| 4e 20 47 4f 54 4f 20 31 | 3b 0d 09 6e 68 20 3a 3d |N GOTO 1|;..nh :=|
|00006040| 20 4e 45 58 54 53 4f 42 | 4a 28 6e 68 29 3b 0d 09 | NEXTSOB|J(nh);..|
|00006050| 49 46 20 6e 68 20 3c 3e | 20 6e 69 6c 20 54 48 45 |IF nh <>| nil THE|
|00006060| 4e 20 49 46 20 47 45 54 | 54 59 50 45 28 6e 68 29 |N IF GET|TYPE(nh)|
|00006070| 20 3d 20 31 35 20 54 48 | 45 4e 20 6e 65 77 20 3a | = 15 TH|EN new :|
|00006080| 3d 20 47 45 54 53 59 4d | 4e 41 4d 45 28 6e 68 29 |= GETSYM|NAME(nh)|
|00006090| 3b 0d 09 6e 65 77 20 3a | 3d 20 53 54 52 44 49 41 |;..new :|= STRDIA|
|000060a0| 4c 4f 47 28 27 52 65 70 | 6c 61 63 65 20 6f 6c 64 |LOG('Rep|lace old|
|000060b0| 20 73 79 6d 62 6f 6c 20 | 77 69 74 68 3a 27 2c 6e | symbol |with:',n|
|000060c0| 65 77 29 3b 0d 09 49 46 | 20 44 49 44 43 41 4e 43 |ew);..IF| DIDCANC|
|000060d0| 45 4c 20 54 48 45 4e 20 | 47 4f 54 4f 20 31 3b 0d |EL THEN |GOTO 1;.|
|000060e0| 09 44 53 45 4c 45 43 54 | 41 4c 4c 3b 0d 09 6c 68 |.DSELECT|ALL;..lh|
|000060f0| 20 3a 3d 20 46 4c 41 59 | 45 52 3b 0d 09 52 45 50 | := FLAY|ER;..REP|
|00006100| 45 41 54 0d 09 09 6c 61 | 79 65 72 6e 61 6d 65 20 |EAT...la|yername |
|00006110| 3a 3d 20 47 45 54 4c 4e | 41 4d 45 28 6c 68 29 3b |:= GETLN|AME(lh);|
|00006120| 0d 09 09 4c 41 59 45 52 | 28 6c 61 79 65 72 6e 61 |...LAYER|(layerna|
|00006130| 6d 65 29 3b 0d 09 09 6f | 68 20 3a 3d 20 46 41 43 |me);...o|h := FAC|
|00006140| 54 4c 41 59 45 52 3b 0d | 09 09 49 46 20 6f 68 20 |TLAYER;.|..IF oh |
|00006150| 3c 3e 20 6e 69 6c 20 54 | 48 45 4e 20 42 45 47 49 |<> nil T|HEN BEGI|
|00006160| 4e 0d 09 09 52 45 50 45 | 41 54 0d 09 09 09 49 46 |N...REPE|AT....IF|
|00006170| 20 28 47 45 54 54 59 50 | 45 28 6f 68 29 20 3d 20 | (GETTYP|E(oh) = |
|00006180| 31 35 29 20 26 20 28 47 | 45 54 53 59 4d 4e 41 4d |15) & (G|ETSYMNAM|
|00006190| 45 28 6f 68 29 20 3d 20 | 6f 6c 64 29 20 54 48 45 |E(oh) = |old) THE|
|000061a0| 4e 20 42 45 47 49 4e 0d | 09 09 09 09 48 43 45 4e |N BEGIN.|....HCEN|
|000061b0| 54 45 52 28 6f 68 2c 20 | 78 2c 20 79 29 3b 0d 09 |TER(oh, |x, y);..|
|000061c0| 09 09 09 64 65 67 72 6f | 74 20 3a 3d 20 47 45 54 |...degro|t := GET|
|000061d0| 53 59 4d 52 4f 54 28 6f | 68 29 3b 0d 09 09 09 09 |SYMROT(o|h);.....|
|000061e0| 53 59 4d 42 4f 4c 28 6e | 65 77 2c 78 2c 79 2c 23 |SYMBOL(n|ew,x,y,#|
|000061f0| 64 65 67 72 6f 74 29 3b | 0d 09 09 09 09 44 53 45 |degrot);|.....DSE|
|00006200| 4c 45 43 54 41 4c 4c 3b | 0d 09 09 09 09 53 45 54 |LECTALL;|.....SET|
|00006210| 53 45 4c 45 43 54 28 6f | 68 29 3b 0d 09 09 09 45 |SELECT(o|h);....E|
|00006220| 4e 44 3b 0d 09 09 09 09 | 6f 68 20 3a 3d 20 4e 45 |ND;.....|oh := NE|
|00006230| 58 54 4f 42 4a 28 6f 68 | 29 3b 0d 09 09 09 09 44 |XTOBJ(oh|);.....D|
|00006240| 45 4c 45 54 45 4f 42 4a | 53 3b 0d 09 09 55 4e 54 |ELETEOBJ|S;...UNT|
|00006250| 49 4c 20 6f 68 20 3d 20 | 6e 69 6c 3b 0d 09 09 45 |IL oh = |nil;...E|
|00006260| 4e 44 3b 0d 09 09 6c 68 | 20 3a 3d 20 4e 45 58 54 |ND;...lh| := NEXT|
|00006270| 4c 41 59 45 52 28 6c 68 | 29 3b 0d 09 55 4e 54 49 |LAYER(lh|);..UNTI|
|00006280| 4c 20 6c 68 20 3d 20 6e | 69 6c 3b 0d 31 3a 20 45 |L lh = n|il;.1: E|
|00006290| 4e 44 3b 0d 52 55 4e 28 | 52 65 70 6c 61 63 65 29 |ND;.RUN(|Replace)|
|000062a0| 3b 00 00 00 60 00 00 00 | 00 00 00 00 00 00 3b 00 |;...`...|......;.|
|000062b0| 00 00 41 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..A.....|........|
|000062c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006300| 00 00 00 00 16 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006310| 00 00 00 02 06 a4 3c 00 | 00 00 52 05 79 2c a4 00 |......<.|..R.y,..|
|00006320| 00 00 00 00 33 00 00 00 | 40 00 00 00 00 00 00 00 |....3...|@.......|
|00006330| 00 00 00 00 00 00 50 00 | 33 00 a8 00 96 00 00 00 |......P.|3.......|
|00006340| 00 02 06 a5 6c 02 06 a5 | 54 0b 73 79 6d 20 6f 70 |....l...|T.sym op|
|00006350| 74 69 6f 6e 73 6f 6e 73 | 00 87 91 01 1e 00 ed 00 |tionsons|........|
|00006360| 00 00 01 b6 00 04 00 00 | 6f 00 00 00 6b 05 79 2c |........|o...k.y,|
|00006370| a4 00 00 00 00 00 31 00 | 00 00 40 0b 20 6f 70 65 |......1.|..@. ope|
|00006380| 6e 20 64 6f 6f 72 73 00 | 00 00 00 00 ff 00 00 00 |n doors.|........|
|00006390| ff ff ff 00 00 ff ff 00 | 00 00 00 00 37 53 68 6f |........|....7Sho|
|000063a0| 77 43 6c 61 73 73 28 27 | 7e 64 6f 6f 72 73 20 6f |wClass('|~doors o|
|000063b0| 70 65 6e 65 64 27 29 3b | 0d 48 69 64 65 43 6c 61 |pened');|.HideCla|
|000063c0| 73 73 28 27 7e 64 6f 6f | 72 73 20 63 6c 6f 73 65 |ss('~doo|rs close|
|000063d0| 64 27 29 3b 00 00 00 6b | 05 79 2c a4 00 00 00 00 |d');...k|.y,.....|
|000063e0| 00 31 00 00 00 40 0c 20 | 63 6c 6f 73 65 20 64 6f |.1...@. |close do|
|000063f0| 6f 72 73 00 00 00 00 ff | 00 00 00 ff ff ff 00 00 |ors.....|........|
+--------+-------------------------+-------------------------+--------+--------+